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SUMMARY 

This  volume  is  a user's  guide  to  the  operation  of  the  training 
requirements  analysis  model  (TRAMOD)  described  in  Volume  I of 
this  report.  It  introduces  TRAMOD  by  describing  its  functions,  the 
logical  operations  and  subroutines,  input  data  requirements,  and 
available  outputs.  The  reader  is  guided  through  a typical  working 
session  with  the  model  which  includes  examples  of  the  ways  in  which 
user /model  interaction  is  accomplished.  Primarily  intended  to  pro- 
vide the  user  with  the  necessary  information  to  maximize  the  effec- 
tiveness of  the  session,  the  guide  explains  the  available  user  options 
and  illustrates  the  interactive  choices  which  may  be  made  along  the 
option  paths.  Use  of  TRAMOD  requires  a remote  terminal  and 
familiarity  with  the  material  covered  in  Volume  I of  this  report. 

That  volume  provides  a more  detailed  description  of  TRAMOD' s 
design,  inputs,  purpose,  and  application. 

TRAMOD  is  a computerized  analytical  model,  one  of  a group 
which  comprises  a life  cycle  cost  (LCC)  modeling  system  for  use  in 
the  early  stages  of  system  design.  It  is,  however,  operable  in  a 
stand-alone  mode  and  is  a powerful  tool  for  use  in  a wide  variety  of 
situations  calling  for  the  selection  of  training  approaches  and  pro- 
grams on  the  basis  of  task,  time,  and  resource  criteria.  General 
applicability  is  achieved  by  allowing  the  user  complete  control  of 
task  definition.  Because  of  this  feature,  its  extreme  flexibility,  and 
its  interactive  nature,  the  most  suitable  operator  of  TRAMOD  is 
either  a behavioral  scientist  or  a training  analyst,  i.  e. , a person 
familiar  with  at  least  the  fundamentals  of  human  learning  theory. 

TRAMOD  consists  of  three  components  which  are  operated  in 
iterative  sequences.  They  are  a task  block  generator,  a training  plan 
generator,  and  a training  program  generator.  Each  component  is 
operable  independently,  performing  certain  subfunctions  to  produce 
the  product  for  which  it  is  named.  The  data  bank,  which  is  input  to 
the  task  block  generator,  consists  of  tasks  which  are  described  in 
terms  of  a series  of  parameters  which  reflect  task  training  charac- 
teristics. TRAMOD  currently  makes  use  of  five.  The  number  of 
these  task  characteristic  parameters,  as  well  as  their  specification 
and  assigned  values,  are  user-defined  options  in  data  bank  con- 
struction. The  data  bank  also  contains  training  time'  and  cost 
information.  The  model  affords  the  user  a mechanism  to  exercise 
interactive  control  over  these  data  through  their  selection  or 
deletion  in  any  given  operation. 
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PREFACE 


This  two  volume  report  describes  the  Training  Requirements 
Analysis  Model  (TRAMOD).  Volume  I describes  the  model  and  its 
development.  This  volume  is  a user's  guide  to  its  operation  and 
potential  use.  The  report  is  one  of  a series  of  technical  reports, 
data  banks,  and  computer  programs  produced  under  contract  no. 

F336 15-75-C-52 18,  "DAIS  Life  Cycle  Costing  Study."  This  study, 
in  conjunction  with  present  Air  Force  capabilities  is  to  provide  the 
means  for  assessing  the  life  cycle  cost  impact  of  the  operational 
implementation  of  the  Digital  Avionics  Information  System  (DAIS). 

The  study  was  directed  by  the  Advanced  Systems  Division, 

Air  Force  Human  Resources  Laboratory,  Wright-Patterson  Air 
Force  Base,  Ohio,  and  is  documented  under  Work  Unit  20510001, 
"DAIS  Life  Cycle  Costing  Study."  It  was  performed  under  Air  Force 
Avionics  Laboratory  Program  Element  63243F,  "Digital  Avionics 
Information  System,"  Project  2051.  Project  2051,  "impact  of  DAIS 
on  Life  Cycle  Costs,"  is  jointly  sponsored  by  the  Air  Force  Human 
Resources  Laboratory,  Air  Force  Avionics  Laboratory,  and  the  Air 
Force  Logistics  Command.  Contract  funds  were  provided  by  the  Air 
Force  Avionics  Laboratory.  The  DAIS  Program  Manager  is  Lt.  Col. 
Robert  A.  Dessert,  the  Air  Force  Human  Resource  Laboratory 
Project  Scientist  is  Mr.  H.  Anthony  Baran,  and  the  Air  Force 
Logistics  Command  Project  Officer  is  Capt.  Ronald  Hahn.  The  latter 
two  are  DAIS  Deputy  Directors.  The  Contractor  Program  Manager  is 
Mr.  John  Goclowski. 
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DIGITAL  AVIONICS  INFORMATION  SYSTEM  (DAIS): 
TRAINING  REQUIREMENTS  ANALYSIS  MODEL  USER'S  GUIDE 


1.  GENERAL  INFORMATION  AND  APPLICATION 

1.1  INTRODUCTION 

The  training  model  (TRAMOD)  described  in  this  report  is  a 
powerful  tool  for  use  in  deciding  which  among  a group  of  tasks  should 
be  trained,  and  how  (given  a series  of  constraints)  to  best  accomplish 
a well  defined  set  of  training  objectives.  Its  adaptability  stems  from  its 
ability  to  allow  a user  to  structure  its  operation  and  decision  criteria 
to  a wide  variety  of  situations  while  retaining  the  capability  of 
addressing  specific  training  problems  in  depth.  Designed  for  use 
early  in  the  systems  acquisition  process  to  facilitate  the  identification 
and  timely  consideration  of  potential  training  problems,  its  primary 
objective  is  to  enhance  Air  Force  capability  to  avoid  potential  training 
problem  situations  through  action  within  the  design  process  itself.  Its 
extreme  flexibility  and  amenability  to  user  interaction  throughout  its 
operation  make  it  appropriate  for  use  in  an  extremely  wide  variety  of 
training  related  investigations. 

1.2  MODEL  DESCRIPTION 

TRAMOD  was  designed  to  operate  in  conjunction  with  a 
Reliability  and  Maintainability  (R&M)  model  and  a system  cost  model 
to  form  a life  cycle  cost  impact  modeling  system  (LCCUVI).  That 
system  was  developed  as  part  of  and  will  be  applied  within  the  Digital 
Avionics  Information  System  advanced  development  program.  Each 
model  within  the  LCC  modeling  system  addresses  a component 
function  of  life  cycle  costing.  Together  they  form  a tool  capable  of 
assessing  and  combining  the  elements  of  system  LCC  in  a way  which 
can  enhance  its  consideration  throughout  the  systems  acquisition 
process,  especially  during  its  early  phases.  This  is  accomplished  by 
providing  information  needed  to  perform  trade-offs  within  the  design 
process  which  can  result  in  reducing  the  LCC  of  new  systems. 
TRAMOD  addresses  the  training  requirements  element  of  system 
LCC.  The  R&M  model  addresses  other  elements  such  as  system 
operation  and  maintenance,  and  system  support  resource  utilization. 
The  system  cost  model  provides  the  cost  data  integration  and 
computational  capability  of  the  LCCIM. 
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Figure  1 shows  a block  diagram  of  TRAMOD  indicating  its 
three  analytic  components,  the  required  inputs,  and  the  resulting 
outputs.  The  major  input  to  the  model  is  the  data  bank  consisting  of 
tasks  and  their  behaviors  evaluated  in  terms  of  selected  job-related 
characteristics.  The  remaining  inputs  are  entered  interactively 
during  the  execution  of  TRAMOD.  They  identify  the  user's  policy 
criteria  and  resource  constraints  and  thus  serve  to  direct  the  entire 
analytic  process.  The  major  output  of  TRAMOD  is  the  training 
program;  the  selected  task  blocks  and  the  training  plan  are  inter- 
mediate outputs  which  are  important  aids  in  understanding  and 
, controlling  the  execution  of  the  model.  Table  1 identifies  the  functions 

performed  in  each  component. 

1.3  MODEL  OPERATION 

The  user,  preferably  a behavioral  scientist  or  training 
analyst,  first  selects  the  criteria  for  determining  which  tasks  are  to 
be  trained  and  inputs  this  information  to  the  first  component  of  the 
model:  the  task  block  generator.  This  component  tests  the  training 
characteristics  of  each  task,  presently  quantified  in  the  training  data 
bank  in  terms  of  five  parameters,  against  the  user-specified  selection 
criteria.  These  criteria  are  essentially  a set  of  parameter  values 
which  the  model  uses  as  cut-off  points.  The  task  blocks  to  be 
trained  are  then  displayed  along  with  descriptions  of  the  selected  tasks 
in  terms  of  the  parameters;  taxonomic  grouping  and  level  (cognitive 
and  psvchomotor);  learning  difficulty;  criticality;  frequency;  and  a 
parameter  which  serves  to  collate  tasks  that  are  best  trained  as  a 
block.  The  user  has  the  option  of  iteratively  exercising  this  component 
and  varying  the  selection  criteria  upon  which  it  operates. 

The  selected  task  blocks  become  the  input  data  set  for  the 
second  component  of  the  model:  the  training  plan  generator.  The  user 
must  also  specify  the  requirements,  a dollar  cost  expense  limit,  and 
a time  limit  in  months.  The  training  plan  generator  component  then 
uses  a combination  of  optimizing  and  mapping  techniques  to  generate 
a training  plan.  This  output  consists  of  the  specific  task  blocks  to  be 
trained  with  recommendations  concerning:  training  mode  (school  or 
OJT);  method  of  instruction  (simulation,  performance,  lecture, 
demonstration,  etc. );  and  media  (simulator,  mockups,  actual 
equipment,  etc.).  It  also  includes  a time  estimate  and  a cost  estimate. 
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After  reviewing  the  initial  training  plan,  the  user  has  the 
option  of  selecting  different  sets  of  training  criteria  and  iteratively 
exercising  this  component  to  generate  alternative  training  plans.  This 
is  quickly  accomplished,  affording  a means  for  rapid  hypothesis 
testing  and  the  comparative  analysis  of  the  effects  of  varying  training 
plan  constraints. 

Once  a training  plan  has  been  generated  which  is  acceptable 
to  the  user,  it  becomes  the  input  data  set  for  the  training  program 
generator  component.  This  component  affords  the  user  the  options  of 
selecting  a task  characteristic  to  govern  the  training  sequence  of  the 
task  blocks  and  designating  one  of  the  training  media  as  a scarce 
resource  requiring  prioritized  use.  A scheduler  within  the  component 
then  generates  the  schedule  arrangements  that  are  possible  and 
applies  any  optional  constraints  which  the  user  may  have  specified. 

The  final  output  is  a training  program  which  consists  of  task  blocks 
to  be  trained,  appropriate  training  methods  and  media,  training  modes 
and  training  times.  At  that  point,  TRAMOD  is  programmed  to  return 
to  the  beginning  of  the  entire  operation  to  process  tasks  for  the  next 
trainee  group. 

1.4  HOST  COMPUTER  CONSIDERATIONS 

TRAMOD  is  programmed  for  operation  on  the  CDC-6600 
computer.  Consequently,  the  FORTRAN  programming  language  used 
by  the  model  responds  to  the  syntax  of  the  CDC  6600  FORTRAN 
compiler.  Once  the  program  has  been  loaded  into  the  host  computer 
with  all  data  files,  all  that  is  needed  for  execution  is  a remote 
terminal.  The  program  is  interactive  and  is  run  on-line  utilizing  the 
CDC  6600  time-sharing  system.  Details  concerning  terminal  inter- 
action with  the  model  will  be  discussed  later  in  this  report.  Applicable 
FORTRAN  syntax  statements,  as  used  in  the  program,  will  be 
illustrated. 

1.  5 DATA  BANK 

Operation  of  TRAMOD  requires  a task  data  bank  containing  an 
array  of  user  defined  tasks  described  in  terms  of  parameters  which 
retlect  task  training  characteristics.  Task  data  are  structured  in 
matrix  form  as  shown  in  Figure  2.  Tasks  and  subtasks  are  coded  in 
terms  of  the  equipment  (system,  subsystem,  line  replaceable  unit), 
the  maintenance  event  that  is  required  to  restore  the  equipment  to 
operational  readiness  (or  the  operational  activity  required),  and  the 
behavior(s)  to  be  acquired.  Each  behavior  will  have  been  previously 
quantified  bv  a training  analyst  in  terms  of  the  task  characteristic 
parameters  (see  Table  2). 
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TRAMOD  - CARD  LAYOUT  FORM 


II.  SYNTAX  FOR  RESPONSES  TO  PROGRAM  TRAMOD 
2.  I INITIATION 

Once  the  user  has  set  up  the  terminal  and  established  a data 
link  with  the  host  computer,  he  is  ready  to  call  up  program  TRAMOD. 
The  following  is  a sample  initiation  procedure.  The  first  three 
commands  call  up  the  task  dictionary,  data  bank,  and  model  files;  the 
fourth  command  begins  execution  of  TRAMOD. 

Example  Initiation  Procedure 


COMMAND-  ATTACH. TRAMOD 

PEN  IS 
TRAMOD 

PE  CYCLE  NO.  = 001 
COMMAND-  ATTACH. TASKS 


PEN  IS 
TASKS 

IP  CYCLE  NO.  = 001 
COMMAND-  ATTACH » HDD 

PEN  IS 
HDD 

PE  CYCLE  NO.  = 002 
COMMAND-  EDITOR 

. .EDIT. TRAMOD 

. . RUN  » ETN 


450 00B  CM  STORAGE  USED 

5.672  CP  SECONDS  COMPILATION  TIME 

ENTER  AESC- 

At  this  point  the  program  lias  been  initiated  and  the  input  data  file  is 
being  read. 
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2.  2 INPUTS 

There  are  two  types  of  inputs  to  TRAMOD:  off-line  (batch) 
and  on-line  (terminal).  Maintained  in  a single  file,  off-line  input  data 
are  contained  in  task  data  records,  each  of  which  pertains  to  a single 
task  within  the  group  from  which  those  to  be  trained  will  be  selected. 
Each  task  data  record  is  comprised  of  previously  determined  values 
for  each  of  the  task  characteristic  parameters  (presently  five)  upon 
which  TRAMOD  operates.  Those  parameters  are;  (1)  criticality; 

(2)  learning  difficulty;  (3)  frequency;  (4)  psychomotor  level;  and 
(5)  cognitive  level.  When  appropriate,  the  input  data  also  include  tlags 
used  to  force  a task  to  demand  a specific  training  mode,  method,  or 
medium. 

Also  included  on  each  task  data  record  is  the  estimated  time 
in  hours  required  to  train  a person  to  perform  that  task.  These  times 
are  provided  for  both  Technical  Training  School  (TTS)  training  and 
on-the-job  training  (OJT).  The  estimated  cost  per  hour  for  each  type 
■ _ of  training  is  also  listed. 

Sources  of  and  methods  for  assigning  data  values  are  described 
in  Volume  I of  this  report.  With  the  exception  of  frequency,  the  values 
assigned  to  the  task  characteristic  parameters  should  be  based  on  the 
judgement  of  engineers  and  technicians  familiar  with  the  equipment 
upon  which  the  tasks  will  be  performed.  The  frequency  should  be 
obtained  from  actual  reliability  and  maintainability  (R&M)  data  for 
that  equipment. 

In  very  early  stages  of  the  design  process  of  new  systems, 
data  values  could  be  obtained  by  comparing  the  new  system's  equip- 
ment to  operational  equipment  for  which  actual  data  is  available, 
computing  the  necessary  factor(s)  to  reflect  equipment  differences, 
and  applying  the  factor(s)  to  the  operational  equipment  data  to  generate 
data  applicable  to  the  new  system.  Once  this  is  done,  the  DAIS  R&M 
model  [ 3 ] can  be  used  to  advantage  in  organizing  that  data  for  direct 
input  to  TRAMOD. 
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Course  length  and  cost  data  for  TTS  training  are  available 
from  actual  Air  Force  training  course  outlines  and  cost  estimates 
produced  by  the  Air  Training  Command.  OJT  training  times  and 
associated  costs  must  be  estimated  until  more  definitive  information 
becomes  available.  As  was  the  case  for  R&M  data,  course  length  and 
cost  data  for  new  systems  must  be  obtained  by  means  of  a comparative 
analysis  and  subsequent  extrapolation  from  the  old  to  the  new. 

2.2.1  Data  File  Inputs 

Table  2 is  a description  of  all  the  fields  for  the  off-line  file 
(batch)  input  data  elements.  They  are  explained  in  sufficient  detail  to 
allow  the  model  user  to  format  the  data  required  to  be  included  in  that 
file.  Table  3 provides  the  user  with  duty /task  descriptor  codes,  and 
is  to  be  used  in  conjunction  with  Table  2.  Table  4 further  describes 
the  fields  in  terms  of  card  column  layout  and  justification.  Figures  2 
and  3 are,  respectively,  an  example  of  a card  layout  work  sheet 
showing  how  the  data  should  be  prepared  for  keypunch  and  a sample 
card  from  an  input  file  deck. 


2.  2.  2 Interactive  Inputs 

Prior  to  operating  the  model,  the  user  snould  be  aware  of 
certain  responses  (see  Table  5)  that  the  model  prompts  the  user  to 
make  during  the  course  of  its  operation.  Footnoted  items  are 
required  inputs.  Inclusion  of  the  others  is  discretionary. 

2.3  OUTPUTS 

All  outputs  of  the  model  are  generated  during  the  course  of 
operation  in  its  interactive  mode  and  (see  Table  6)  are  displayed  on 
the  user's  terminal.  The  sample  program  run  provided  in  Appendix  A 
shows  the  locations  of  these  displays  within  the  interactive  process. 


13 


Table  2 

DESCRIPTION  OF  INPUT  DATA  ELEMENTS  KEY  FIELDS 
Columns  Identifier  - Definition 

1-7  Equipment  Identification  Number  - defines  the  equipment 

in  a series  ot  codes  showing  (Column  1)  the  type  of  weapon 
system,  (2)  the  major  system  within  the  weapon  system, 

(3)  functional  groupings  of  the  major  system,  and  (4-7) 
provides  a numerical  breakdown  by  operational  function 
(e.g.,  radar  navigation,  radio  navigation,  or  bombing 
navigation),  subsystem,  line  replaceable  unit,  and  shop 
replaceable  unit.  The  following  applies  for  DAIS: 

Column  2 - major  system 
A - avionics 

Column  3 - functional  groups 
A - air-ground  attack 
C - communications 
I - instruments 
M - miscellaneous 
N - navigation 
Z - core 

8-12  Duty /Task/Subtask  Identification  - defines  the  job  in  a 

series  of  codes  showing  (8-9)  the  duties  of  the  trainee, 
(10-11)  tasks  to  be  performed  and,  (12)  the  subtasks  that 
further  define  elements  and/or  knowledge  aspects  of  the 
task  required  for  their  successful  completion.  (See 
Table  3 for  assigned  codes.  ) 

Task  Criticality  - it  is  necessary  to  evaluate  each  task/ 
function  within  a maintenance  event  with  respect  to 
criticality.  Inevitably,  almost  all  tasks  are  of  a high  level 
of  criticality  in  insuring  the  ultimate  success  of  a mission. 
However,  as  the  training  of  personnel  to  perform  tasks  is 
an  end  in  itself,  the  tasks  may  be  assigned  individual  levels 
of  criticality  within  the  content  of  each  event.  There  are 
three  levels  of  task  criticality  used  for  TRAMOD  opera- 
tion. They  are  defined  as  follows  (column  18  is  decimal 
filled): 

(1)  Non-critical  - tasks  that,  if  not  performed 
correctly  and/or  to  standards,  would  not 
degrade  the  overall  effectiveness  of  the  event, 
but  which  might  affect  the  efficiency  of  the 
performance. 
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13-18 
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(3)  Semi-critical  - tasks  that,  if  not  performed 
correctly  and/or  to  standards,  would  not 
substantially  degrade  the  effectiveness  of  the 
maintenance  event,  but  which,  if  performed 
correctly  and  to  standards,  would  lead  to  an 
efficient  and  effective  overall  maintenance 
event  performance. 

(5)  Critical  - tasks  that,  if  not  performed 

correctly -and  to  standards,  would  seriously 
affect  the  effectiveness  and  success  of  the 
maintenance  event. 

(0)  Not-applicable  - tasks  that  are  not  applicable 
to  a given  equipment  or  system.  This  designa- 
tion may  be  used  by  the  computer  to  allow  it 

to  bypass  the  other  input  characteristic  para- 
meters. 

19-34  Learning  Difficulty  - the  learning  difficulty  of  a task/ 

function  may  be  expressed  as  a function  of  the  time  it 
takes  to  learn  to  perform  the  task  relative  to  the  popula- 
tion of  learning  times  across  all  tasks  associated  with  the 
same  system.  This  relationship  is  convenient  and 
sufficient  for  the  purpose  at  hand.  However,  its  limitation 
is  realized  as  is  the  fact  that  the  time  involved  in  the 
learning  process  is  a function  of  the  interaction  of  many 
variables  including  effort,  complexity,  and  practice. 
Although  levels  of  task  difficulty  provided  by  recent  USAF 
occupational  surveys  are  based  on  a scale  of  one  to  nine, 
for  the  purposes  of  this  data  base,  five  levels  were  used. 
They  are  defined  as  follows  (column  24  is  decimal  filled): 

( 1)  Extremely  low  - very  much  less  than  the  mean 
value  for  learning  times  across  all  tasks 
associated  with  the  subsystem  studies. 

(2)  Low  - somewhat  less  than  the  mean  value  for 
learning  times  across  all  tasks  associated  with 
the  subsystem  studied. 

(3)  Average  - approximating  the  mean  value  for 
learning  times  across  all  tasks  associated  with 
the  subsystem  studied 

(4)  High  - somewhat  more  than  the  mean  value  for 
learning  times  across  all  tasks  associated  with 
the  subsystem  studied 

(5)  Extremely  high  - very  much  more  than  the 
mean  value  for  learning  times  across  all  tasks 
associated  with  the  subsystem  studied. 
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25-30  Task  Frequency  - frequency  of  task/function  occurrence 

is  a measure  cf  the  exposure  time  of  a trainee  to  each 
task  he  encounters  when  performing  his  duties.  For  the 
shop,  flightline,  and  support  equipment  maintenance 
duties,  the  exposure  time  is  obtained  by  exercising  the 
following  equation  using  reliability  and  maintainability 
data /estimates  for  the  subsystem  studied. 


MI  = 


MTTR  by  Maintenance  Event 


MFHBMA 


where: 


MI  is  the  maintenance  index  of  the  time  taken  to  perform 
a maintenance  action  on  a given  subsystem  for  each  flight 
hour  of  operation. 

MTTR  is  the  mean  time  to  repair  given  that  a maintenance 
action  is  required.  This  value  is  calculated  by  multiplying 
the  average  time  it  takes  to  perform  a task  event  by  the 
probability  of  occurrence  of  that  event. 

MFHBMA  is  the  mean  flight  hours  between  maintenance 
actions. 

Five  levels  are  used  to  record  task  frequency  for  TRAMOD 
operations.  These  values  are  obtained  from  the  mainte- 
nance index  values  (Mis)  of  the  subsystems  for  each 
maintenance  event  combination  that  requires  the  tasks  of 
interest  to  be  performed.  The  scale  used  to  obtain  the 
levels  represents  the  linearly  partitioned  relative 
weighting  of  the  logarithmic  plots  of  the  Mis.  In  other 
words,  the  logarithmic  values  of  the  Mis  were  divided 
into  five  discrete  increments  to  obtain  their  relative  level 
as  defined  below  (column  30  is  decimal  filled): 

(1)  Extremely  low  - task  is  performed  infrequently 

(2)  Low  - task  is  performed  at  a rate  less  than  the 
average 

(3)  Average  - task  is  performed  at  the  average 
rate 

(4)  High  - task  is  performed  at  a rate  above  the 
average 

(5)  Extremely  high  - task  is  performed  frequently 
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Task  Psychomotor  Level  - each  task/function  of  a main- 
tenance event  entails  some  level  of  conscious,  physical 
action  in  response  to  sensory  inputs.  The  degree  of  visual 
acuity,  reaction  time,  manual  dexterity,  multilimb 
coordination,  finger  dexterity,  arm-hand  steadiness, 
control,  precision  or  interactions  of  any  of  the  above 
psychomotor  factors,  as  measured  by  the  amount  of 
practice  required  to  learn  and  apply  each  task,  were 
chosen  to  serve  as  bases  for  evaluating  task  levels.  As 
no  suitable  specific  taxonomy  exists  for  either  defining 
or  measuring  the  psychomotor  levels  of  a maintenance 
task,  a measurement  criterion,  presented  below,  was 
constructed  to  serve  the  needs  of  TRAMOD  operation.  An 
attempt  is  made  to  clarify  the  definitions  by  example 
(column  36  is  decimal  filled): 

(1)  Imitation  - task  demands  little  or  no  practice 
to  perform.  Only  routine  motor  skills  and 
perceptual  discriminations  are  needed.  Task 
performance  may  require  instruction  and 
illustration  for  a few  simple  parts. 

(2)  Manipulation  - task  requires  some  practice 
either  to  integrate  routine  motor  skills  and 
perceptions  or  to  perfect  certain  motor 
coordinations  or  perceptual  discriminations. 
Task  performance  may  be  completed  for  the 
most  part  without  assistance  other  than 
reference  material.  Speed  is  not  critical. 

(3)  Precision  - task  requires  moderate  practice 
to  perfect  or  integrate  the  perceptual  motor 
skills.  Task  performance  demands  the  ability 
to  do  all  parts  of  the  task  (at  minimum 
recommended  level)  unassisted  with  reason- 
able speed  and  accuracy.  Inspection/verifica- 
tion  of  performance  may  be  necessary. 

(4)  Articulation  - task  requires  much  practice  to 
acquire  the  motor  coordination  and/or 
perceptual  discriminations  necessary  for 
proficient  performance  in  all  activities  of  all 
parts  of  the  task.  High  accuracy  but  not 
necessarily  high  speed  is  needed. 

(5)  Naturalization  - task  requires  a great  deal  of 
practice  to  acquire  the  motor  coordinations 
and  perceptual  discriminations  necessary  for 
proficient  performance.  Task  requires  highest 
speed  and  accuracy  with  maximum  skill  pro- 
duction without  the  use  of  reference  materials. 
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Task  Cognitive  Level  - each  task/function  within  a main- 
tenance event  may  be  described  in  terms  of  the  relative 
cognitive  (knowledge)  level  needed  by  a person  to  learn 
or  perform  it.  As  no  suitable  specific  taxonomy  exists 
for  measuring  the  cognitive  levels  required  of  a 
technician  performing  a maintenance  task,  a measurement 
criteria,  presented  below,  was  constructed  to  serve  the 
needs  of  TRAMOD.  These  definitions  are  derived  from  a 
combination  of  the  Specialty  Training  Standards  (STS) 
proficiency  code  definitions  and  Bloom's  [1]  cognitive 
level  definitions.  An  attempt  is  made  to  clarify  the 
definitions  by  example.  The  five  levels  assigned  are: 

(1)  Comprehension  - task  requires  that  basic  facts 
and  nomenclature  be  known  for  successful 
performance. 

(2)  Application  - task  requires  that  the  principles 
and  procedures  involved  be  known  and  used 
for  successful  performance. 

(3)  Analysis  - task  requires  that  operating 
principles  be  understood  and  an  ability  to  draw 
rudimentary  conclusions  concerning  the 
subject  matter.  Technician  should  be  able  to 
evaluate  the  relevancy  of  data. 

(4)  Synthesis  - task  requires  that  considerable 
theory  be  known  and  an  ability  to  evaluate 
conditions. 

(5)  Evaluation  - task  requires  all  of  the  above 
levels  plus  that  of  making  predictions  or 
decisions  requiring  a complete  understanding 
of  underlying  theory, 

43-44  F Flag  - training  mode  output  forcing  code 

(1)  Technical  Training  School  (TTS) 

(2)  On-the-job  Training  (OJT) 

(0)  Let  model  decide 

45-46  Method  - training  method  output  forcing  code 

(1)  information  lecture 

(2)  discussion 

(3)  demonstration 

(4)  simulation 

(5)  performance 

(0)  let  model  decide 
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47-48 


50-55 


57-62 


64-67 


69-73 


Medium  - 
(1) 
(2) 

(3) 

(4) 

(5) 
(0) 


training  medium  output  forcing  code 
transparencies 
training  films 
mock-ups 
simulator 
actual  equipment 
let  model  decide 


TTS  Cost  - technical  training  school  cost /hour  for  the 
current  task  (column  53  is  decimal  filled) 


QJT  Cost  - on-the-job  training  cost/hour  for  the  current 
task  (column  60  is  decimal  filled) 


TTS  Time  - time  in  hours  for  TTS  training  for  current 
task 

QJT  Time  - time  in  hours  for  OJT  training  for  current 
tasks 
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Table  3 

DUTY /TASK  DESCRIPTOR  FILE 


DUTIES 

I 0 

01 

FLIGHTLINE  OUTIES 

I 0 

02 

SHOP  OUTIES 

I D 

03 

avionics  support  equipment  repair  duties 

10 

04 

FLlC-HTLlNE  SUPPORT  EQUIPMENT  DUTIES 

I 0 

05 

GENERAL  non-t E CHN i c al  duties 

I 0 

06 

GENERAL  TECHNICAL  dutifs 

T 4SKS 

01 

02 

C 3 

04 

0 ^ 

06 

< A PPL  ICABLE  OUTIES) 

1 0 

01 

X 

X 

X 

X 

IDENTIFY  NECESSARY  MAINTENANCE  AIDS 

I 0 

02 

X 

X 

X 

X 

OPT  AIN  AND  RETURN  MAINTENANCE  AIDS 

! 0 

0 3 

X 

X 

X 

GAIN/CLOSE  ACCESS  TO  EQUIPMENT 

I 0 

04 

X 

X 

X 

CONNECT/DISCONNECT  TEST  EQUIPMENT 

10 

05 

X 

X 

X 

VERIFY  MAI F UNC  T ION 

I 0 

06 

X 

X 

X 

EVALUATE  OISC.  REPORT/CHECK  PREV.  HIST. 

I 0 

0? 

X 

X 

X 

ISOLATE  MALFUNCTION/LOCATE  FAULT 

I 0 

0? 

X 

X 

X 

DETERMINE  ACTION  TO  BE  TAKEN 

I 0 

06 

X 

X 

X 

perform  repair  maintenance 

I 0 

10 

X 

X 

X 

SERVICECLUBRICATE, CLEAN, PRESSURIZE/ETC.) 

I 0 

1 1 

X 

X 

X 

C AL  I8R ATE /ALIGN 

10 

12 

X 

X 

X 

ADJUST 

I 0 

1 3 

X 

X 

OBTAIN/RETURN  REPLACEMENT  UNIT  (LRU,SRU> 

I 0 

1 4 

X 

REMOVE /REPLACE  SAFETY  WlRES/BOND.  STRAPS 

1 0 

1 5 

X 

X 

DISCONNECT/REMOVE/ INSTALL/CONNECT 

I 0 

16 

X 

X 

X 

X 

RECORD  MAINTENANCE  A C T I ON S / R E S U L T S 

I 0 

1 7 

X 

TEST  OPERATION  OF  BENCH  CHECK  EQUIP/T.S. 

I 0 

18 

X 

X 

VERIFY  REP.  OF  MA  L F<J  NC  T 1 0 N / M A I N T . P RO  C . 

I 0 

1 9 

X 

INITIATE  DISPOSITION  OF  EQUlPMtNT 

1 0 

20 

X 

OPERATE  SUPPORT  EQUIPMENT 

1 0 

50 

X 

OBSERVE  SAFETY  PRECAUTIONS  AND  REQUIRE M. 

1 0 

51 

X 

OBSERVE  SECURITY  PRECAUTIONS  AND  REQUIR. 

10 

52 

X 

USE  DATA  DOCUMENTATION  SYSTEMS 

1 0 

53 

X 

UNDERS TANO/USE  SUPPLY  SYSTEM 

I 0 

54 

X 

DEMO.F AMIL.WI TH  O.MAINT.  POL / P R OC / C ONC . 

1 0 

55 

X 

DEMONSTRATE  FAMILIARTY  WITH  AIRCRAFT 

10 

56 

X 

KNOW  RELATED  TRAINING 

10 

60 

X 

KNOw  AND  USE  GENERAL  TEST  EQUIPMENT 

I 0 

61 

X 

KNOW  BASIC  PRINCIPLES  OF  ELECTRONICS 

I 0 

62 

X 

understand  & use  troobleshoot ing  techni. 

10 

63 

X 

DEMO.  REP  A I RSM A INT  . T E C HN  I Q U E S / PR  0 C E DU R . 

I 0 

64 

X 

UNDERSTANDING  SUBSYSTEM  INTERFACING 

1 0 

65 

X 

KNOW  i USE  TECHNICAL  PUBLICATIONS 

[0 

66 

X 

DEMO. KNOWLEDGE  OF  SP^C . SUBSYSTEMS, LRUS 

D E MO. K NOWL EDGE  OF  S PE C . SU B S Y S T E MS , L R U S 

I 0 

67 

X 

I 0 

68 

X 

DEMO. KNOWLEDGE  OF  S PE  C . SU  6 S Y S T E MS  , L R U S- 

1 0 

69 

X 

DE«0. KNOWLEDGE  OF  S PE C . SU B SY $ T E MS , L RUS 
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Table  3 (continued) 


1 0 

70 

X 

DEMO. UN Owl  EDGE 

Of 

SPEC .SUBSYSTEMS/ 

L RUS 

1 0 

7 1 

X 

DEm0.kN0w LEDGE 

Of 

SPEC. SUBSYSTEMS, 

L RUS 

: o 

72 

X 

D Emo.kNOWL EDGE 

Of 

SPEC. SUBSYSTEMS, 

lRUS 

I 0 

71 

X 

OEMO.KNOWL  cOGE 

Of 

SPEC . SUBSY  STEMS, 

LRUS 

I 0 

7«. 

X 

DEMO. KNOWLEDGE 

Of 

SPEC. SUBSYSTEMS, 

L RUS 

I D 

75 

X 

0 EMO. k now l edge 

Of 

SPE  C . SUB  SY  STEMS , 

LRUS 

I 0 

7© 

X 

D E mo .K  NOWL  E DGE 

Of 

SPEC . SUBSYSTEMS, 

LRUS 

I 0 

7 7 

X 

D E MO.n.  NOWL  E DGE 

Of 

SPEC . SUBSYSTEMS  » 

LRUS 

1 0 

7 3 

X 

0EM0. KNOW LEDGE 

Of 

SPEC . SUBSY  STE  MS , 

LRUS 

ID 

70 

X 

DE  MO. KNOWLEDGE 

Of 

SPEC . SUBSY  ST  EMS , 

LRuS 

1 D 

80 

X 

DEMO.KNOWLt'OGE 

Of 

SPEC.  auto. 

T.S. 

1 D 

81 

X 

DEMO. KNOWLEDGE 

Of 

SPEC.  * U T 0 . 

T .S. 

u 

8 2 

X 

D E MO.K NOWL t DGE 

Of 

spec.  auto. 

T.S. 

I 0 

8 3 

X 

D E MO. K NOWL  EDGE 

Of 

SPEC.  AUTO. 

T.S. 

t D 

8 <■ 

X 

DEMO. KNOWLEDGE 

Of 

SPEC.  AUTO. 

T.S. 

1 D 

85 

X 

DEMO. KNOWLEDGE 

Of 

SPEC.  AUTO. 

T.S. 

t D 

36 

X 

0 E MO. K NOWL  6 DGE 

Of 

SPEC.  AUTO. 

T.S. 

10 

87 

X 

DEMO. KNOWLEDGE 

of 

T2 

m 

n 

• 

u 

c 

O 

T.S. 

I 0 

8 8 

X 

DEMO. KNOWLEDGE 

Of 

SPEC.  AUTO. 

T.S. 

1 0 

SO 

X 

OEMO. KNOWLEDGE 

Of 

SPEC.  AUTO. 

T.S. 

ID 

90 

X 

DEMO.k  NOW. 

Of 

SPEC  . 

MANUAL 

TEST 

STATIONS 

1 D 

9 1 

X 

0 E MO. K NOW . 

Of 

SPEC. 

MANUAL 

TEST 

STATIONS 

10 

92 

X 

D £ MO . K NOW . 

Of 

SPEC. 

MANUAL 

TEST 

STATIONS 

I D 

93 

X 

DEMO. KNOW. 

Of 

SPEC  . 

MANUA  L 

TEST 

STAT IONS 

I D 

9t 

X 

DEMO. KNOW. 

Of 

SPEC  . 

manual 

TEST 

stat  ions 

ID 

95 

X 

DEMO. KNOW. 

Of 

SPEC  . 

manual 

TEST 

ST  AT  IONS 

I D 

96 

X 

DEMO. KNOW. 

Of 

SPEC  . 

manual 

TEST 

STATIONS 

1 D 

97 

X 

D £ MO. K NOW . 

Of 

SPE  C . 

manual 

TEST 

STATIONS 

I 0 

98 

X 

DEMO. KNOW. 

Of 

SPEC  . 

MANUAL 

TEST 

STATIONS 

I D 

99 

X 

DEMO.K  NOW . 

Of 

SPEC  . 

manual 

TEST 

STAT IONS 

Table  4 


DATA  CARD  COLUMN  DESCRIPTION  FOR  TRAINING  DATA  ELEMENTS 


Column 

17 

Title 

EQUIPMENT  ID  NO. 

Length 

Type" 

Justification 

1 

Weapon  System 

1 

A 

F 

2 

Major  Aircraft  System 

1 

A 

F 

3 

Functional  Group 

1 

A 

F 

4 

Organizational  Function 

1 

N 

F 

5 

Subsystem 

1 

N 

F 

6 

Line  Replaceable  Unit 

1 

N 

F 

7 

8-12 

Shop  Replaceable  Unit 

JOB  ID  NO. 

1 

N 

F 

8-9 

Duty 

2 

N 

F 

10-11 

Task 

2 

N 

F 

12 

Subtask 

1 

N 

F 

13-17 

Criticality 

5 

N 

R 

18 

Decimal 

1 

X 

F 

19-23 

Difficulty 

5 

N 

R 

24 

Decimal 

1 

X 

F 

25  29 

Frequency 

5 

N 

R 

30 

Decimal 

1 

X 

F 

31-35 

Psychomotor  Level 

5 

N 

R 

36 

Decimal 

1 

X 

F 

37-41 

Cognitive  Level 

5 

N 

R 

42 

Decimal 

1 

X 

F 

43-44 

F Flag 

2 

N 

R 

45-46 

Method 

2 

N 

R 

47-48 

Medium 

2 

N 

R 

49 

Blank 

1 

X 

F 

50-55 

TTS  Cost  (col.  53  is  decimal! 

6 

N 

R 

56 

Blank 

1 

X 

F 

57-62 

OJT  Cost  (col.  60  is  decimal) 

6 

N 

R 

63 

Blank 

1 

X 

F 

64-67 

TTS  Time 

4 

N 

R 

68 

Blank 

1 

X 

F 

69-72 

OJT  Time 

4 

N 

R 

73-80 

’Type  — A = 

Justification 

Blank 

alpha,  N = numeric,  X * either. 

— R = right.  L = left,  F = fixed. 
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X 

F 

Table  5 

INTERACTIVE  INPUTS 

1.  Threshold  cutoff  levels  for  the  task  characteristic 
parameter  valuesa 

(a)  Criticality 

(b)  Learning  difficulty 

(c)  Frequency 

(d)  Psychomotor  level 

(e)  Cognitive  level 

2.  Task  selection  algorithm  choicea 

3.  Number  of  trainees  to  be  trained  in  each  Air  Force 
Specialty  Code3 

4.  Regression  coefficients  for  derivation  of  cost  and 
time  data  for  each  task  block 

5.  Training  time  constraint3 

6.  Training  cost  constraint 

7.  TTS/OJT  split 

8.  Alternative  training  objective  mapping 

9.  Alternative  methods  and  medium  for  training 

10.  Scarce  TTS  resource  to  be  optimally  scheduled 

11.  Minimum  class  size3 

12.  Maximum  class  size3 


3required  input 


I 
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Table  ti 

INTERACTIVE  OUTPUTS 

Histogram  of  complete  task  input  data 

Histogram  of  tasks  to  be  trained 

Histogram  of  tasks  not  be  be  trained 

Total  times  and  costs  for  TTS  and  OJT  training 

Student  split  between  TTS  and  OJT  training 
(optional  output) 

Total  times  and  costs  for  feasible  combinations 
of  TTS /OJT  training  (optional  output) 

Training  plan 

Training  program  (schedule) 


These  two  optional  outputs  are  provided  to  accommodate 
the  possibility  that  personnel  may  receive  a combination 
of  TTS  and  OJT  instruction.  While  not  done  under  present 
Air  Force  policy,  such  dual  instruction  is  an  option  which 
might  be  desirable  in  t lie  future. 


III.  DETAILED  MODEL  DESCRIPTION 


. 


3.  1 TASK  BLOCK  GENERATOR 

The  interactive  nature  of  TRAMOD  affords  the  user  great 
flexibility  in  directing  its  operation.  Its  first  analytical  component 
consists  of  a set  of  five  screening  algorithms  which  test  the  task 
characteristic  parameter  values  of  the  input  data  against  the  user's 
criterion,  to  select  those  tasks  to  be  trained  (Figure  4).  The  user  is 
first  prompted  to  select  threshold  values  for  each  of  the  task 
characteristics,  and  then  one  of  the  five  algorithms  which  will  govern 
the  screening  process.  The  threshold  value  for  each  parameter  is  then 
registered  as  the  lowest  value  which  TRAMOD  is  to  use  as  a criterion, 
in  any  of  five  specific  tests,  to  determine  whether  a task  should  be 
trained.  An  initial  histogram  of  the  input  task  data  set  is  immediately 
generated  so  that  the  user  may  scan  the  characteristics  of  the  task 
population  being  tested  as  an  aid  in  selecting  appropriate  thresholds. 
The  various  screening  algorithms  compare  these  thresholds  (NO  with 
the  actual  values  associated  with  each  task  under  examination  (Ci). 
Each  algorithm  performs  a unique  test  representing  a different  degree 
of  restrictiveness: 

"All"  Decision  Tree  - all  the  characteristics  must  meet 

their  individual  thresholds 

i.  g*  C.  > N.  for  all  i,  i = 1,  . , 5 

Pure  Average  Test  - the  average  of  the  characteristics 

must  meet  the  average  of  the 
thresholds 


*-g- 


5 3 

I C.  > IN. 


Weighted  Average  Test 


with  thresholds  normalized  and  used 
as  weighting  on  the  characteristics, 
the  weighted  average  must  meet  the 
average  of  the  thresholds 

5 5 

e.  g.  I C.  iW.  > r » IN. 

. . i l a . . i 
i=l  i=l 

6-Ni 

where  W.  = — = for  i = 1,  . , 5 

1 V (6-NO 


Figure  4 


RMS  Test 


the  sum  of  the  squares  of  the  character- 
istics must  meet  the  sum  of  the  squares 
of  the  thresholds 


e.  g.  I (C.)“  > I (N. )“ 

i=  1 1 i=  1 1 


"Any"  Decision  Tree  - any  one  of  the  characteristics  must 

meet  its  threshold 

e.  g.  C.  > N for  any  i,  i = 1,  . , 5 

The  "All"  Decision  Tree  is  a restrictive  screening  criterion 
and  results  in  a very  uniform  set  of  passing  tests.  Each  succeeding 
screening  algorithm  on  the  above  list,  with  the  possible  exception  of 
the  Weighted  Average  Test,  is  less  restrictive  and  allows  an 
increasing  number  of  tasks  through  the  screen  for  the  same  set  of 
Mi's.  The  characteristics  of  the  resulting  set  of  tasks  to  be  trained 
become  far  more  varied  as  the  screening  criterion  becomes  less 
restrictive.  High  values  in  one  or  two  characteristics  are  more  able 
to  compensate  for  lower  values  in  other  characteristics.  This  can  be 
readily  seen  by  comparing  the  task  characteristic  histograms  of  tasks 
selected  to  be  trained  on  the  basis  of  different  screening  algorithms 
using  the  same  thresholds. 

Once  a task  is  selected  to  be  trained,  TRAMOD  checks  to 
determine  if  the  task  is  part  of  a group  of  nested  tasks.  There  are 
tasks  which,  for  one  or  more  reasons,  either  interact  or  are  related 
such  that  they  are  usually  performed  together  or  in  sequence,  and  are 
designated  as  such  by  a nesting  task  characteristic  parameter  value  in 
the  data  bank.  If  so,  the  entire  nested  group  must  be  trained  as  a 
whole.  TRAMOD  combines  the  group  of  nested  tasks  into  a task  block 
and  the  maximum  values  of  the  characteristics  of  the  nested  tasks 
become  the  characteristics  assigned  to  the  task  block.  Those  tasks 
to  be  trained  which  are  not  part  of  a nested  group  are,  themselves, 
treated  as  task  blocks. 

3.2  TRAINING  PLAN  GENERATOR 

The  second  analytical  component  of  TRAMOD  is  the  training 
plan  generator.  Basically,  it  takes  each  task  block  outputted  by  the 
task  block  generator  component  and  performs  three  general  functions 
in  either  a user  interaction  or  default  (using  internalized  constant 
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parameter  values)  mode.  These  functions  are:  (1)  the  assessment  of 
training  time  and  cost;  (2)  the  assignment  of  a training  mode;  and 
(3)  the  assignment  of  training  methods  and  media. 


3.2.  1 Assessment  of  Training  Times  and  Costs 


Once  the  training  blocks  have  been  determined  through  the 
user's  selection  criteria,  TRAMOD  prints  a series  of  questions  to 
which  the  user  must  respond  to  indicate  how  the  training  times  and 
costs  for  the  task  blocks  are  to  be  derived  (Figure  5).  Three  options 
are  available  to  the  user: 

• Direct  input  of  training  times  and  costs  for  each  task 
block  in  the  input  data  set 


• Calculation  of  training  times  and  costs  with  user-selected 
regression  coefficients;  times  and  costs  being  linear 
combinations  of  the  task  characteristics,  e.g. , 

5 


Cost  (i,  OJT)  = K0  + 


j = l 


Kj  • Cfj  for  each  task  block  i 


where 

Kj  is  the  regression  coefficient  for  OJT  training  costs  for 
the  jth  characteristic,  j = 1,  ...»  5 


Cfj  is  the  value  of  the  jth  characteristic  of  the  ith  task 
block 


• Derivation  of  times  and  costs  with  fixed  "default" 

regression  coefficients  stored  in  TRAMOD.  The  equation 
for  their  derivation  is  as  shown  above. 


Selection  of  the  first  option  indicates  that  the  data  have  already 
been  read  in  as  part  of  the  input  data  base.  In  order  for  this  option  to 
be  used,  cost  and  time  data  must  be  available  for  all  the  tasks  in  the 
original  input  data  set.  As  task  blocks  are  selected  for  training,  the 
appropriate  times  and  costs  data  are  accumulated  and  stored  with  the 
rest  of  the  task  block  data.  The  second  option  requires  (and  prompts) 
the  user  to  provide  regression  coefficients  by  entering  them 
interactively  at  the  terminal.  The  third  option  requires  no  data 
input,  as  certain  initial  "default"  regression  coefficients  are 
stored  in  TRAMOD.  During  sessions  with  multiple  runs,  re- 


OBTAIN  TRAINING  TIMES  AND  COSTS 


TABLE  7 

DEFAULT  REGRESSION  COEFFICIENTS 


the  times  and  costs  data  arrays  needed  for  the  training  mode  selection 
process  in  which  these  values  are  summed  over  all  task  blocks  to  be 
trained  and  outputs  generated  indicating  the  total  times  and  student 
costs  required  for  both  TTS  and  OJT  training. 

3.  2.  2 Assignment  of  Training  Mode 

TRAMOD  will  determine  assignments  for  training,  to  TTS  or 
OJT,  in  either  of  two  ways,  i.  e.,  on  a "mixed"  or  "ncn-mixed" 
basis,  at  the  discretion  of  the  user.  A "non-mix"  option  assumes 
each  student  goes  to  either  school  or  OJT,  but  not  both  (Figure  S). 

The  user  inputs  time  and  per  student  cost  restrictions  for  the  entire 
training  program,  and,  if  both  TTS  and  OJT  training  requirements 
are  feasible.  TRAMOD  calculates  the  percentage  split  among  the 
students  between  the  two  training  modes.  If  the  user  does  not  input  a 
maximum  time  which  allows  both  modes  of  training,  and  a maximum 
student  cost  large  enough  to  include  one  of  the  modes,  a percentage 
split  will  not  be  calculated.  Instead,  both  OJT  and  TTS  training 
requirements  will  be  singly  tested  against  the  user’s  time  and  cost 
restrictions  to  determine  if  either,  alone,  is  a feasible  mode.  If  so, 
TRAMOD  will  assign  all  the  students  to  that  training  mode.  Otherwise, 
the  user  is  prompted  to  input  revised  maximums  for  training  time 
and/or  cost  which  will  allow  training  through  at  least  one  of  the  two 
modes.  If  TRAMOD  splits  the  students  between  school  and  OJT,  the 
remainder  of  the  training  plan  generator  and  the  training  program 
generator  module  are  executed  twice;  once  for  the  all-TTS  training 
program  student  group  and  then  again  for  the  student  group  to  receive 
OJT  training.  In  the  latter  case,  certain  non- applicable  options  are 
ignored,  such  as  multiple  schedule  arrangements  for  scarce  resource 
optimization. 

The  second  manner  in  which  TRAMOD  may  assign  training 
modes  is  the  "mixed"  option  (Figure  7).  If  the  user  selects  this 
option,  the  assignments  will  combine  both  school  and  OJT  training 
such  that  each  student  receives  a mix  of  school  and  OJT  training.  The 
user  inputs  a maximum  time  for  the  training  program,  and  task 
blocks  are  distributed  between  TTS  and  OJT  training  in  a way  which 
results  in  a minimum  cost  training  plan.  Distribution  decisions  are 
made  by  a dynamic  programming  algorithm  on  the  sole  basis  of  times 
and  costs  data.  However,  the  user  has  the  option  of  overriding 
individual  decisions  and  forcing  tasks  to  be  assigned  to  the  user's 
choice  of  TTS  or  OJT  training.  After  tne  algorithm  is  completed, 
TRAMOD  prints  all  feasible  times  and  costs  for  training  which  meet 
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the  time  restriction.  The  user  can  compare  the  costs  associated  with 
different  time  restrictions  and  select  the  training  mode  mix  based 
solely  on  time  and  cost  considerations. 

3.2.3  Assignment  of  Methods  and  Media 

The  final  part  of  the  training  plan  generator  module  assigns  a 
training  method  and  medium  to  each  task  block  (Figure  3).  The 
assignment  is  made  through  two  mappings:  first,  from  the  taxonomic 
levels  for  each  task  block  to  training  objectives  (T.O. ' s ) ; second, 
from  the  T.O.  's  to  methods  and  media.  The  user  may  input  his  own 
mapping;  otherwise,  default  mappings  within  TRAMOD  are  used.  These 
were  taken  from  Parker  and  Downs!  and  are  illustrated  below. 


Taxonomic 

Description 

Training  Obiective 

Method/Media 

Psvchomotor  1 
(Imitation) 
j Cognitive  I 

(Comprehensive) 

1.  Learning  Identifications 

TTS.  Discussion/Transparencies 

OJT  informal  Lecture/ 
Transparencies 

Psvchomotor  2 
(Manipulation) 
Psvchomotor  3 
(Precision) 

2.  Learning  Perceptual 
Discrimination 

TTS  Simulation/Traimng  Film 

OJT  Demonstration/Training  Film 

Psvchomotor  4 
(Articulation) 
Cognitive  2 
(Application) 

3.  Understanding  Principles 
and  Relationships 

TTS.  SimulationiSimulator 

OJT  Performance  Mock-Ups 

99 

4.  Learning  Procedural 

Sequence 

TTS:  Performance/Simulator 

OJT  Performance/Training  Film 

Cognitive  5 
(Evaluation) 

5.  Making  Decisions 

TTS.  Simulation- Simulator 

OJT  Performance-Training  Film 

Psvchomotor  5 
(Naturalization) 

i 

6.  Performing  Skilled 

Perceptual  Motor  Arts 

TTS.  Pertormance/Simulator 

OJT:  Performance  On-Equipment 

^Parker,  James  F. , Jr.,  and  Judith  E.  Downs,  "Selection  of  Training 
Media,"  Air  Force  Systems  Command,  Wright-Patterson  AFB,  Ohio, 
September  1961. 
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The  modei  examines  the  parameter  values  associated  with  the 
cognitive  and  psvchomotor  characteristics  of  each  task  block  and 
chooses  the  larger  of  them  to  govern  the  first  mapping  from  taxonomy 
to  training  objective.  The  second  mapping,  from  training  objective  to 
training  method  and  media,  is  then  made  based  on  whatever  training 
mode  was  previously  assigned  to  the  task  block.  For  example,  a task 
block  described  as  psychomotor  level  2 and  cognitive  level  3 will  be 
mapped  to  "Learning  Procedural  Sequence"  as  its  training  objective. 

If  the  previously  assigned  training  mode  was  TTS,  it  will  be  assigned 
performance  for  its  method  and  simulator  as  its  medium. 

The  user  may  specify  alternate  mappings  for  one  or  both  of 
the  above  processes,  and  repeat  them  until  an  acceptable  assignment 
is  obtained.  At  this  point,  the  second  module  of  the  model  is 
completed  and  TRAMOD  outputs  the  complete  training  plan.  After 
reviewing  the  initial  plan,  the  user  may  opt  to  select  a different  set 
of  task  screening  criteria  and  iterate  the  task  block  selection  process 
and  training  plan  generator. 


3.3  TRAINING  PROGRAM  GENERATOR  MODULE 

Once  the  user  is  satisfied  with  the  training  plan,  the  third 
analytical  module  ot  TRAAIOD  is  exercised  to  generate  a representa- 
tive training  program  (Figure  9).  The  user  is  asked  to  either  select 
one  of  the  task  characteristics  to  govern  the  sequence  for  the  training 
of  the  task  blocks,  or  to  keep  the  task  blocks  arranged  as  in  the 
original  input  data  set.  The  user  can  also  label  one  of  the  media  used 
in  TTS  training  as  a scarce  resource  item,  whose  use  TRAAIOD 
should  minimize  when  scheduling  the  training.  TRAAIOD  will  generate 
all  the  training  schedule  arrangements  possible  for  each  unit  of  die 
selected  medium.  It  will  also  maintain  the  prescribed  order  for  task 
blocks  not  requiring  the  use  of  scarce  resource  items,  and  order 
those  that  do  in  a way  which  conserves  their  use.  The  model  then 
calculates  how  many  TTS  classes  are  needed  to  handle  the  trainee 
group  and  is  able  to  determine  how  many  units  of  the  selected  medium 
are  needed.  The  training  program  generator  outputs  all  viable 
training  schedule  arrangements,  the  type  and  numoer  of  selected 
training  media  units  required,  and  the  number  of  classes  to  follow 
each  schedule  arrangement.  TRAAIOD,  having  completed  the 
training  program  generation,  is  now  ready  to  begin  the  entire  process 
again  using  a new  set  of  tasks  to  be  evaluated  in  the  same  way  as  the 
original  set. 
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APPENDIX  A 


SAMPLE  TRAINING  MODEL 
COMPUTER  TERMINAL  SESSION 
(with  User  Interaction  shown) 
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ENTER  AFSC-  423X5 

4 TASKS  BEFORE  SCREENING 

RESPOND  Y (DISPLAY)  OR  N (INHIBIT)  TO  HISTOGRAM  TITLES 
«*  HISTOGRAM  OF  COMPLETE  TASK  DATA  FOR  423X5  **  Y 


I 

5 

I 

5 

I 

1 

3 

1 2 

I 

1 3 3 

1 2 3 

5 

1 2 3 

1 2 

01- 

CRITICALITY 

DIFFICULTY 

FREQUENCY 

PSYCHOMOTOR 

COGNITIVE 

ENTER  CUTOFF  LEVEL  (0  THRU  5)  FOR: 
CRITICALITY  - 1 

DIFFICULTY  - 2 

FREQUENCY  - 5 

P3YCH0M0T0R  - 1 

COGNITIVE  - 1 


ENTER  SCREENING  OPTION 
1 * • ANY " DECISION  TREE 
2*  # ALL  * DECISION  TREE 
3»RMS  TEST 
4»WEIGHTED  AVERAGE 
5»PURE  AVERAGE 
* -> 


DO  YOU  WANT  A LISTING  OF  REJECTED  TASKS-7  Y -4- 


KEY  EQUIP  TASK  NAME 

2 AGEFL  04020  OBTAIN  AND  RETURN  MAINTENANCE  AIDS 


C D F P C 
115  2 1 


t*  HISTOGRAM  OF  TASKS  TO  BE  TRAINED  FOR  423X5  **  Y 


4 


I 

I 

I 

01 


1 3 5 

CRITICALITY 


DIFFICULTY 


5 

5 

5 


FREQUENCY 


1 2 3 

PSYCHOMOTOR 


1 2 


COGNITIVE 


**  HISTOGRAM  OF  REJECTED  TASKS  FOR  423X5  **  Y 

t 1 1 5 2 



CRITICALITY  DIFFICULTY  FREQUENCY  PSYCHOMOTOR 


1 


COGNITIVE 
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Ttllt 


3 TASKS  AFTER  SCREENING 

DO  YOU  WANT  TO  SCREEN  THE  TASKS  OVER  AGAIN?  N 


ENTER  NUMBER  OF  TRAINEES  IN  GROUP  423X3 


26 


*- 

f- 


DO  YOU  WISH  TO  USE  REGRESSION  COEFFICIENTS  FOR: 
TTS  COSTS7  N 

OJT  COSTS7  n 

TTS  TIMES7  N 

OJT  TIMES7  N 


<- 


TIME  TO  TRAIN  IS  SCHOOL! 
COST  TO  TRAIN  IN  SCHOOL! 

INPUT  TRAINING  MODE  OPTION: 

1 - NON-MIX 

2- SCHOOL/OJT  TRAINING  MIX 
- I 


4.8  DAYS  TIME  TO  TRAIN  IN  OJT! 
370.0  COST  TO  TRAIN  IN  OJT! 


4.8  DAYS 
163.7 


ENTER  TIME  RESTRICTION  FOR  TRAINING  PROGRAM- 
ENTER  MAXIMUM  TOTAL  COST  FOR  TRAINING  PROGRAM- 


10000 


A TRAINING  PROGRAM  FOR  26  STUDENTS.  MAXIMUM  TOTAL  COST  OF  10000.! 

14  STUDENTS  TO  SCHOOL  12  STUDENTS  TO  OJT 

PERCENT  SPLIT!  33. 8X  SCHOOL  . 46. 2X  OJT 

YOU  CAN  ACCEPT  THE  CURRENT  SPLIT.  INPUT  A NEW  VALUE  FOR  COST  LIMIT 
AND  RECOMPUTE  THE  SPLIT.  OR  INPUT  THE  SPLIT  DIRECTLY. 

KEEP  THE  ABOVE  SPLIT7  Y 


««  TRAINING  PROGRAM  FOR  TTS  STUDENTS  ** 

DO  YOU  WANT  TO  ENTER  AN  ALTERNATIVE  MAPPING  FROM  TAXONOMY 
TO  TRAINING  OBJECTIVE7  Y 


ENTER  THE  NUMBER  OF  THE  TRAINING  OBJECTIVE  ASSOCIATED  WITH  EACH  OF  THE 
FOLLOWING  TAXONOMIC  LEVELS.  WHERE! 

T.G.  t « LEARNING  IDENTIFICATIONS 

T.O.  2 • LEARNING  PERCEPTUAL  DISCRIMINATIONS 

T.O.  3 » UNDERSTANDING  PRINCIPLES  AND  RELATIONSHIPS 

T.O.  4 • LEARNING  PROCEDURAL  SEQUENCE 

T.O.  3 • MAKING  DECISIONS 

T.O.  6 * PERFORMING  SKILLED  PERCEPTUAL  MOTOR  ACTS 


PSYCHOMOTOR  »l<  T . 0 . ' 
i-SYCHOMOTOR  -2*  T.O.' 
PSYCHOMOTOR  -3)  T.O.’ 


<r 


43 


PSYCHOMOTOR  -4*  T.O.-  4 
PSYCHOMOTOR  -3*  T.O.-  6 
COGNITIVE  -l*  T.O.»  1 
COGNITIVE  -2*  T.O.-  4 
COGNITIVE  -3*  T.Q.-  3 
COGNITIVE  -4*  T.O.-  5 
COGNITIVE  -5!  T.O.»  3 

00  YOU  WISH  TO  ENTER  AN  ALTERNATIVE  MAPPING 
FROM  TRAINING  OBJECTIVE  TO  METHODS  AND  MEDIA? 


ENTER  THE  NUMBERS  OF  THE  TRAINING  METHOD  AND  TRAINING  MEDIUM 
ASSOCIATED  WITH  EACH  OF  THE  FOLLOWING  TRAINING  OBJECTIVES.  WHERE: 
METHOD  1 » INFORMAL  LECTURE  MEDIUM  1 » TRANSPARENCIES 

METHOD  2 - DISCUSSION  MEDIUM  2 - TRAINING  FILMS 

METHOD  3 - DEMONSTRATION  MEDIUM  3 « MOCK-UPS 

METHOD  4 - SIMULATION  MEDIUM  4 « SIMULATOR 

METHOD  3 - PERFORMANCE  MEDIUM  5 - ACTUAL  EQUIPMENT 

METHOD  6 » OTHER  (LEFT  BLANK)  MEDIUM  6 » OTHER  (LEFT  BLANK) 


TRAINING  OBJECTIVE-1* 

TRAINING  OBJECTIVE-1* 

TRAINING  OBJECTIVE-2* 

TRAINING  OBJECTIVE-2* 

TRAINING  OBJECTIVE-3* 

TRAINING  OBJECTIVE-3* 

TRAINING  OBJECTIVE-4* 

TRAINING  OBJECTIVE-4* 


METHOD  FOR  TTS  - 2 
MEDIUM  FOR  TTS  - 1 
METHOD  FOR  OJT  » 1 
MEDIUM  FOR  OJT  - 3 
METHOD  FOR  TTS  - 1 
MEDIUM  FOR  TTS  - 3 
METHOD  FOR  OJT  - 3 
MEDIUM  FOR  OJT  » 2 
METHOD  FOR  TTS  » 2 
MEDIUM  FOR  TTS  - 2 
METHOD  FOR  OJT  - 3 
MEDIUM  FOR  OJT  - 3 
METHOD  FOR  TTS  - 2 
MEDIUM  FOR  TTS  - 1 
METHOD  FOR  OJT  - 4 
MEDIUM  FOR  OJT  * 4 
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TRAINING 

OBJECTIVE-5; 

METHOD 

FOR 

TTS 

MEDIUM 

FOR 

TTS 

TRAINING 

OBJECTIVE-3; 

METHOD 

FOR 

OJT 

MEDIUM 

FOR 

OJT 

TRAINING 

OBJECTIVE-6; 

METHOD 

FOR 

TTS 

MEDIUM 

FOR 

TTS 

TRAINING 

OBJECTIVE-6; 

METHOD 

FOR 

OJT 

MEDIUM 

FOR 

OJT 

f- 

*- 

f- 


<- 
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423X3  - TRAINING  PLAN  GENERATOR  OUTPUT 

NODE  DAYS  NETH 


I SUBSYSTEM-  AGEFL 

I 

I 04  FLIGHTLINE  SUPPORT  EQUIPMENT  DUTIES 
I 010  IDENTIFY  NECESSARY  MAINTENANCE  AIDS 

I 1 60  RECORD  MAINTENANCE  ACTIONS/RESULTS 

I 200  OPERATE  SUPPORT  EQUIPMENT 


MED  I 
I 


TTS  .3  DSCUS  TRANSI 
TTS  1.3  DSCUS  TRANSI 
TTS  3.0  DSCUS  TRANSI 


DO  Y ju  WISH  TO  GENERATE  ANOTHER  METHODS  AND  MEDIA  ASSIGNMENT*  N 

DO  YOU  WISH  TO  REGENERATE  THE  TRAINING  PLAN*  N 


ENTER  NUMBER  INDICATING  CHARACTERISTIC  TO  GOVERN  ORDERING  OF  TASKS 
FOR  TRAINING.  THIS  TASK  HIERARCHY  ORDERS  FROM  LOU  TO  HIGH 
1 "CRITICALITY 

2- DIFFICULTY 

3- FREQUENCY 

4- PSYCH0M0T0R 
3-COGNITIVE 

O-KEEP  INITIAL  ORDERING  OF  TASKS 

* 5 <- 


ENTER  NUMBER  INDICATING  MEDIUM  TO  BE  OPTIMALLY  SCHEDULED 

1 - TRANSPARENCIES 

2- TRAINING  FILMS 

3- MOCK-UPS 

4- SIMULATORS 
3-ACTUAL  EQUIPMENT 
O-IGNORE  OPTION 

> 4 


A.  5 


ENTER  MINIMUM  CLASS  SIZE  FOR  TTS-  2 
ENTER  MAXIMUM  CLASS  SIZE  FOR  TTS-  3 


3 TTS  CLASSES  ARE  NEEDED  FOR  14  STUDENTS 


t*  SCHEDULE  ARRANGEMENT  1 ** 


SUBSYS 

TASK 

MODE 

DAYS 

COST 

METHOD 

MEDIUM 

AGEFL 

04010 

TTS 

.3 

30.0 

DISCUSSION 

XPARENCIES 

AGEFL 

04160 

TTS 

1 .3 

180.0 

DISCUSSION 

XPARENCIES 

AGEFL 

04200 

TTS 

3.0 

360.0 

DISCUSSION 

XPARENCIES 

«»  TRAINING  PROGRAM  FOR  OJT  STUDENTS  ** 

DO  YOU  UANT  TO  ENTER  AN  ALTERNATIVE  MAPPING  FROM  TAXONOMY 
TO  TRAINING  OBJECTIVE?  N , 


DO  YOU  WISH  TO  ENTER  AN  ALTERNATIVE  MAPPING 
FROM  TRAINING  OBJECTIVE  TO  METHODS  AND  MEDIA?  N 


423X3  - TRAINING  PLAN  GENERATOR  OUTPUT 


I SUBSYSTEM-  AGEFL  MODE  DAYS  METH  MED  I 

I 1 

I 04  FLIGHTLINE  SUPPORT  EQUIPMENT  DUTIES  I 

I 010  IDENTIFY  NECESSARY  MAINTENANCE  AIDS  OJT  .3  LECTR  MOCK  I 

I 160  RECORD  MAINTENANCE  ACTIONS/RESULTS  OJT  1.3  SIMUL  SIMULI 

I 200  OPERATE  SUPPORT  EQUIPMENT  OJT  3.0  SIMUL  SIMULI 


DO  YOU  LJISH  TO  GENERATE  ANOTHER  METHODS  AND  MEDIA  ASSIGNMENT’  N 


DO  YOU  WISH  TO  REGENERATE  THE  TRAINING  PLAN’  N 


ENTER  NUMBER  INDICATING  CHARACTERISTIC  TO  GOVERN  ORDERING  OF  TASKS 

FOR  TRAINING.  THIS  TASK  HIERARCHY  ORDERS  FROM  LOU  TO  HIGH 

1»CRITICALITY 

2*D IFF ICUL  TY 

3«FREQUENCY 

4-PSYCHOMOTOR 

3»C0GNITIVE 

0«KEEP  INITIAL  ORDERING  OF  TASKS 

» 0 


* 


**  SCHEDULE  ARRANGEMENT  1 ** 


SU6SYS 

TASK 

NODE 

DAYS 

COST 

METHOD 

MEDIUM 

AGEFL 

04010 

0 JT 

.3 

3.7 

LECTURE 

MOCK-UPS 

AGEFL 

04160 

OJT 

1.5 

52.3 

SIMULATION 

SIMULATORS 

AGEFL 

04200 

0 JT 

3.0 

104.6 

SIMULATION 

SIMULATORS 

DO  YOU  UANT  TO  GENERATE  A TRAINING  PLAN  FOR 
ANOTHER  AFSCT  N 

STOP 

1.848  CP  SECONDS  EXECUTION  TINE 


APPENDIX  B 


TRAINING  MODEL  PROGRAM  LISTING 


100-  PROGRAM  TAAMOD  < input . tapes- input .output. 

110-  l TASKS. TAPE2-TASKS.HDB. TAPE10-HDB > 

120-C 

130-C  - - PROGRAM  POR  TRAINING  MODEL  - - 

I 40—C 

150-  DIMENSION  LR0I5.5)  . NRO  (5.5).  TUAL  ( 2 ) > CUAL  C 2 ) . NUSE  (10) 

loO-  DIMENSION  CODE ( 2 ) • MED ( 6 > • NET ( 6 > > CHS (5) » FlS ( 3 > .JMAT (6.2) 

1 70— C CHS  AND  FLS  ARE  TEMPORARY  ARRAYS  TO  HO^D  PORTIONS  OF 
180-C  EACH  INPUT  RECORD.  NAMELY  THE  CHARACTERISTICS  AND  FLAGS. 

190-C 

COO-  COMMON/BLOCI/  NBLOC . TRPLAN t. 350 '. MAXES ( 350 ). JCOSTS ( 350 ) . 

CIO-  l JTIMESk 350) . INONE < 10) 

CCO-C  NBLOC  - NUMBER  OF  TASK  BLOCKS  TO  BE  TRAINED 

C30-C  TRPLAN-  SUBSYSTEM  ID-  SUCH  AS  'AMUO'  OR  * TRAIN"  . MAX  7 CHAR. 

240-C  MAXES  - PACKED  TO  HOLD  IN  EACH  DIGIT  (FROM  RIGHT  TO  LEFT ) I 

250-C  1 - CRITICALITY  CHARACTERISTIC 

260-C  2 - DIFFICULTY  CHARACTERISTIC 

270-C  3 * FREQUENCY  CHARACTERISTIC 

280-C  4 - PSYCHOMOTOR  CHARACTERISTIC 

290-C  5 » COGNITIVE  CHARACTERISTIC 

300-C  6 - MODE 

310-C  7 - METHOLD 

320-C  8 » MEDIA 

330-C  9-10  - DUTY  NUMBER 

340-C  11-13-  TASK  CODE 

330-C  JCOSTS-  TRAINING  COSTS.  FIRST  0 DIGITS  TTS • SECOND  8 OJT . 

360-C  JTIMES-  TRAINING  TIMES  (HOURS).  STORED  SIMILARLY  TO  JCOSTS. 

370-C  IN  THOUSANDTHS.  SUCH  THAT  12343670  MEANS  12345.678 

380-C  INONE  • TEMPORARY  ARRAY  TO  HOLD  THE  10  VALUES  PACKED  IN  MAXES. 

390— C 

400-  COMMON /BLOC 2/  MTHMAP (6.2) * MEDMAP i 6 » 2 ) . MAPPSY ( 3 ) * MAPCOG ( 5 > 

410-C  MTHMAP-  MAPPING  FROM  TRAINING  OBJECTIVE  I TO  METHOD  PER  TRAINING  MODE 
420-C  MEDMAP-  MAPPING  FROM  TRAINING  OBJECTIVE  I TO  MEDIA  PER  TRAINING  MODE 
430-C  MAPPSY-  MAPPING  FOM  PSYCHOMOTOR  LEVL  TO  TRAINING  OBJECTIVE 
440-CMAPCOG-  MAPPING  FROM  COGNITIVE  LEVEL  TO  TRAININF  OBJECTIVE 
430-C 

460-  COMMON /BLOC 3/  NTR • NST ( 2 ) » NH IER  > NMED I A . NSCH .MIN. MAX , NCL . NS IZE ( 30 ) 

470— C SEE  SUBROUTINE  SCHEDULE  FOR  DESCRIPTIONS. 

480-C 

490-  COMMON/SHARE/  T ASKS ( 330 ) . KASTS ( 330 ) . CS ( 350 . 2 ) . TS ( 350 . 2 ) 

510-C  TASKS  • SUBSYSTEM  ID.  SUCH  AS  *AM110*  OR  'LEARN*  FOR  INPUT  DATA. 

320-C  KASTS  • PACKED  STORAGE  OF  INPUT  DATA  AS  IN  MAXES. 

330-C  SET  NEGATIVE  IF  TASK  IS  TO  BE  FORCED. 

540-C  CS  * TTS  AND  OJT  COSTS 

530-C  TS  - TTS  AND  OJT  TIMES 

390-C 

595-  COMMON /LABEL S/LA BEL (2.6) 

600-  COMMON/MINT/CODE 

6I0-C  CODE  - LITERAL  TTS  OR  OJT 
630-C 

640-  COMMON /NAMES/  DUT  ( 4.6) . TSK ( 4.62) . KDUT ( 6 ) .NTSK (62) . NDUT . NTSK 

650-C  DUT  - DUTY  NAMES.  40  CHARACTERS  LONG 

660-C  TSK  - TASK  NAMES.  40  CHARACTER  LONG 

670-C  KDUT  - DUTY  NUMBER.  01  TO  99,  STORED  LITERAL 

600-C  KTSK  - TASK  NUMBER.  000  TO  99  STORED  LITERAL 

690-C  NDUT  - NUMBER  OF  DUTIES 

700-C  NTSK  * NUMBER  OF  TASKS 

710-C 

720-  DIMENSION  NSCHED ( 350 . 4 > 

730-  EOUIVAI  FNCF  < TASKS < t >. NSfHFP, t . t > > 
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740-C  NSCHEB  (DESCRIBED  IN  SUBROUTINE  SCHEDULE)  SHARES  SR ACE  WITH 
730-C  COMMON  BLOC  ‘SHARES’. 

"’60-C 

770*  BATA  MTHMAR  '2> 4 . 4 . 5. 4 . 5. 1 13> 5. 3. 5.5/ 

780*  BATA  MEDMAP/1 .2.4 .4.4 , 4. 1 »2. 3, 2.2. 5/ 

790*  BATA  JMAT/1. 5.0. 3.4, O.2.2.2. 3.4.0/ 

800*  BATA  HAPPSY/1 . 2 > 2 , 3 . 6/ 

810*  BATA  HAPCOG/1.3.4,4.5/ 

820*  BATA  CODE/ * TTS * , * C JT  ‘ / 

830*  BATA  MET/*  LECTURE ‘ . ‘ DI SCUSSI ON • . ‘ BEMNSTATN . ‘ . 

840*  1 ‘SIMULATION- . ‘PERFRMNCE* . ‘ V 

830-  DATA  NED/‘XPARENCIES‘ . ‘TRNG  FILMS'.*  MOCK-UPS*. 

860-  t ‘SIMULATORS* . ‘EQUIPMENT* , ‘ •/ 

870-  BATA  BLANR.END. ID. NINES. ZERO/’  ‘ . ‘ END ‘ , • ID ‘ . ‘ 99 ■ , • 0 • / 

880— C 

8R0-C  READ  NAMES  - ^IRST  DUTIES.  CARDS  WITHOUT  ‘ID*  IN  COL  1-2  ARE  COMMENTS 

900-  REWIND  2 

910-  REWIND  10 

920-  READ (2. 10)  NDUT.NTSK 

930-  10  FORMAT ( 213 ) 

940*  J-l 

930-  20  READ (2.30)  ICH . KDUT ( J ) . ( DUT ( K . J > . K-l . 4 ) 

960-  30  FORMAT i A2 . 4XA2 . 22X4A1 0 ) 

970-  IF  (ICH.NE.ID)  GO  TO  20 

980-  J-J-t-1 

990-  IF  IJ.LE.NDUT)  GO  TO  20 

1000-C 

1010-C  NOW  TASK  NAMES 

1020-  J-l 

1030-  40  RE AD ( 2 > 50 ' ICH . KTSK ( J ) . < TSK < K . J ) . K- 1 . 4 ) 

1040-  50  FORMAT ( A2 • 6XA2 .20X4A10) 

1050-  IF  (ICH.NE.ID)  GO  TO  40 

1060-  J-J41 

1070-  IF  (J.LE.NTSK)  GO  TO  40 

1080-C 

1 090— C GET  AFSC  OF  INTEREST.  BLANK  ENTRY  GETS  NEXT  IN  FILE 
1100-  60  PRINT  70 

1110-  70  FORMAT ( ‘OENTER  AFSC-  *> 

1120-  READ ( 5 . 80 ) AFSC 

1130-  80  FORMAT  < Ao ) 

1140-  IEOF-O 

1130-  90  RE AD  < 10. 80 ) GRID 

1160-  IF  < EOF ( 10  > . NE • 0 ) GO  TO  100 

1170-  IF  ( AFSC. EQ. BLANK. OR. AFSC. EQ. GRID)  GO  TO  130 

1180-  GO  TO  90 

1190-C 

1200-C  END  OF  FILE  REACHED.  IF  WE'VE  BEEN  THROUGH  THE  FILE  ALREADY. 

1210-C  THE  REQUESTED  AFSC  IS  NOT  ON  THE  FILE.  IF  NOT,  REWIND  AND  RE-TRY. 

1220-  100  IF  (IEOF.EQ.O)  GO  TO  120 

1230-  PRINT  110. AFSC 

1240-  110  FORMAT ( 1 XA6 . ‘ NOT  FOUND’) 

1230-  REWIND  10 

1260-  GO  TO  60 

1270-  120  REWIND  10 

1280-  IEOF-1 

1290-  GO  TO  90 

1300-C 

1310-C  NK  IS  NUMBER  OF  INPUT  BATA  TASKS.  PRINT  AFSC. 

1320-  130  NK-1 

1323-  DO  13S  J-l.  5 

1330-  DO  133  K-l. 3 

1333-  133  LRO(J.K)-0 

1350-  IF  ( AFSC. EQ. BLANK)  PRINT  140. GRID 

1360-  140  FORMAT( 1X11 ( ’*• )/lX‘ AFSC-‘ . A6/1X1 1 ( •»• ) ) 

1370-C 

1 3flO-r  RFAD  NFYT  TASK.  NIIM1  AND  NIIM"  ARF  THF  TlllTY  AND  TASK. 


130  READ*  10* la0>  TNK . NUN1 .NUN2 » SUB . CHS . FlS . KEEP . Cl . C2 . T 1 . T2 
1*0  FORNAT  * A’. 2A2.A1 .SFa.O. 3F2.0. 1 1 . Fa . 2 . F? . 2 . 2F3 . 0 > 

IF  * NUH2 . EQ . N 1NES ) GO  TO  200 
CALL  C0NVINUN1 .NUM2> 

IF  iNN.GT.350)  GO  TO  180 

CONCERT  TINES  AND  COSTS 
TSlNN.l)-Tl 
TS * NK . 2 ) “T2 
CS'NK . 1 >«C1 
CS*NK.2)"C2 

PACK  TASK.  5 CHARACTERISTICS.  3 FLAGS.  DUTY  AND  TASK 
ENCODE <9. 227. TASKS ( NK ) ) TNR.5UB 
DO  170  J-1.5 

JCH-CNS< J) 

INONE* J'-JCH 
LRO<  JCH. J)»LR0* JCH. J>+1 
170  IF  * J . L£ . 3 > I NONE  * J+5 ) “FLS  < J ) 

IN0NE*9'«NUN1 
I NONE  * 10>-NUN2 
CALL  PACK  * I NONE . K AS  > 

IF  THE  TASK  IS  FORCED  THROUGH  SCREENING.  KASTS  IS  SET  NEGATIUE 
IF  * KEEP . GT . 0 > KAS--KAS 
NASTS(NK'-KAS 
NK-NK-f  1 
GO  TO  130 

ERROR 

180  PRINT  190 

190  FORNAT  * 'ODATA  BASE  ERROR.  NORE  THAN  330  TASKS  FOR  THIS  AFSC*.' 
192  READ  <10.1 60  > TNK.NUN1 .NUN2 
IF  (NUN2.EQ. NINES'  GO  TO  aO 
GO  TO  192 

PRINT  HISTOGRAH  OF  ALL  TASKS 
200  NK-NK-l 

PRINT  210. NK. GRID 

210  FORNAT*  14.’  TASKS  BEFORE  SCREENING' 

« 'ORESPOND  Y (DISPLAY)  OR  N l INHIBIT'  TO  HISTOGRAN  TITLES' 
»//•  **  HISTOGRAN  OF  CONPLETE  TASK  DATA  FOR ' . 1 X A6 . IX ' **  *) 

CALL  INP<  2.0.0.  IANS)  .RETURNS*  •’60) 

IF  iIANS.EQ.l)  CALL  HIST(LRO) 

GO  TO  228 

SCREEN  TASKS  AND  PREPARE  FOR  LISTING 
220  DO  223  I- l .NK 

DECODE  < P • 245 . T ASKS ( I ) ’ TEST. TNK. SUB 
223  ENCODE  < 9 . 22" » TASKS ( I > > INK. SUB 
22-  FORNAT* 'O' .A7.A1 ) 

228  CALL  SCREENiNK' • RETURNS ( ’60 ) 

PRINT  230 

230  FORNAT* • DO  YOU  WANT  A LISTING  OF  REJECTED  TASKS’  •> 

CALL  I NP  * 2 . 0 . 0 . I AN ' . RETURNS  * ’60 ' 

IF  *IAN.ECJ.l'  PRINT  240 

240  FORNAT ( • 0 KEY  EQUIP  TASK  NANE'.3aX'C  D F p C*> 

DO  242  J-l.S 
DO  242  K-l <3 
LRO* J.K '«0 
242  NR0*J.K>“0 

LOOP  THROUGH  TASKS.  SETTING  UP  LRO  AND  NRO  TO  PASS  TO  HISTOGRAN 
SUBROUTINE.  REJECTED  TASKS  ARE  PRINTED  * IF  I AN  IS  SET'. 

SELECTED  TASKS  HAUE  A 0 IN  TASKS. 

DO  770  T«1  .NK 
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1930= 

1 990  = 
2000“ 
2010* 
2030  = 
2033  = 
2036* 
2039= 
2040  = 
2060= 
2063* 
206o* 
2069  = 
2070- 
2080= 
2090* 
2100* 
2110* 
2120* 
2130* 
2140-C 
2150-C 
2160= 
2170= 
2190* 
2190* 
2200* 
2210= 
2220= 
2230- 
2240* 
2230-C 
2260=C 
2270= 
2275= 
2280= 
2290- 
2300* 
2310-C 
2320-C 
2330-C 
2340- 
2350= 
2360= 
2370= 
2380= 
2390= 
2400= 
2410= 
2420= 
2430* 
2440  = 
2450  = 
2460  = 
2470* 
2480  = 
2490= 
2500= 
23 1 0=C 
2520-C 
2325-C 
2530= 
2540= 
2550= 
2560= 
7S70-C 


KAS-IADSCKASTS* I ) 1 

DECODE (9,245. T ASKS * I ) ) TEST , TNK . SUB 
243  FORMAT* A1.A7.A1 > 

IF  ( TES-.EQ.ZERO)  GO  TO  250 
CALL  UNPACK (NAS. INONE) 

DO  248  J=1 • 5 

JCH* I NONE ( J> 

24 8 LRO* JCH. J)=LRO( JCH.J)P1 
GO  TO  270 

250  CALL  UNPACMKAS.  INONE) 

DO  255  J* 1 > 5 
JCH* INONE  C J ) 

255  NRO( JCH.J)=NRO( JCH. J)+l 
IF  ( IAN.EO.O)  GO  TO  270 
NUN 1 = 1 NONE ( 9 > 

NUM2- 1 NONE ( 10) 

PRINT  260. I . TNK.KDUT (NUM1 > .KTSMNUM2) .SUB. t TSK*K.NUM2 ) . 
1 N*1»4).(I  NONE  *K)»K=1.5> 

260  FORMATS  15. 1XA7. 1X2A2.A1 , 1X4A10.5( 1X11  ) ) 

270  CONTINUE 

PRINT  HISTOGRAMS  OF  SELECTED  AND  REJECTED  TASKS 
PRINT  280. GRID 

280  FORMAT* *0**  HISTOGRAM  OF  TASKS  TO  BE  TRAINED  FOR  *. 
t A6. 1X*»*  * ) 

CALL  INP<2. 0.0. IANS) . RETURNS ( 760 > 

IF  (IAWS.EQ.l)  CALL  HIST(LRO) 

PRINT  290. GRID 

290  FORMAT ( • )**  HISTOGRAM  OF  REJECTED  TASKS  FOR  ’.Ae.lX1  «* 
CALL  I NP( 2. 0.0. IANS) . RETURNS < 760 ) 

IF  (IANS.E0.1)  CALL  HIST(NRO) 


PRINT  3OO.NBL0C 

300  FORMAT  * / 1 4 . * TASKS  AFTER  SCREENING  * / 

* ‘ODO  TOU  WANT  TO  SCREEN  THE  TASKS  ODER  AGAIN7  *) 

CALL  INP* 2.0.0. IANS) . RETURNS  * 760 ) 

IF  (IANS.EQ.O)  GO  TO  360 

IF  REJECTED  TASKS  WERE  LISTED.  USER  CAN  SELECTIVELY  FORCE 

ANY  REJECTED  THROUGH  THE  NEXT  SCREENING. 

IF  (IAN.EO.O)  GO  TO  220 
9RINT  310 

310  FORMAT*'  DO  YOU  WANT  ANY  TASKS  LISTED  ABOVE  FORCED', 
i ' THROUGH  SUBSEQUENT  SCREENING7  ') 

CALL  INP<2. 0.0. IANS ) . RETURNS ( 760 ) 

IF  (IANS.EQ.O)  GO  TO  220 
PRINT  320 

320  FORMAT* ' ENTER  KEY  NUMBER  OF  TASKS  TO  BE  FORCED.  END  WITH 

330  CALL  I NP (0.0. NK . JK ) . RETURNS ( 760 ) 

IF  (JK.EQ.O)  GO  TO  220 
DEC0DE(9, 245. TASKS* JK) ) TEST 
IF  (TEST .NE. ZERO)  GO  TO  340 
KASTS* JK)*-KASTS( JK) 

GO  TO  330 

340  PRINT  350. JK 

350  FORMAT* ' TASK  WITH  KEY '.1 4.'  WAS  NOT  REJECTED') 

GO  TO  330 


determine  training  mode  for  selected  task  BLOCKS 
360  PRINT  370. GRID 

370  FORMAT* 'OENTER  NUMBER  OF  TRAINEES  IN  GROUP  '.A6.2X'-  ') 

CALL  I NP  * 0 . 1 . 7a07607609. NTR ) . RETURNS ( 760 > 

CALL  TRMODE ( KOPT ) . RETURNS ( 760 ’ 


D 


0 


rT.eo-i. 

2atO-  NLOOP-O 

2620-  NITER-0 

2a30-c  Mir r is  zero  it  doth  modes  will  eventually  dl  used  in  tud  difpere 
2a<0-C  TRAINING  PROGRAMS.  KOPT  15  1 IF  ALL  TASKS  WERE  FORCED  TO  ONI.  MODE 
2650-C  ROPT  IS  2 IF  THE  MIX  OPTION  WAS  SELECTED  ( ONt  PLAN). 

2aa0-  IF  (ROPT.NE.O)  00  TO  <10 

2a  ’0-  .180  NLOOP-NLOOPF 1 

2680—0  FOR  NLOOP  - 1 AND  THEN  2 . WE  WILL  TRAIN  ALL  IASRS  IN  1 HA  1 MODI  lEXCEPT 
.'6*0— C THOSE  FORCED  THE  OTHER  WAY), 

2"’00-  PRINT  3VO.CODELNLOOP' 

.'-10-  3*0  FORMAT  < * 0**  TRAINING  PROGRAM  FOR  ‘.A3.  - STUDENTS  **’> 

2 '20-  DO  <00  l-l.NBLOC 

2730-  CALL  UNPACK ( MAXES  < I ) . I NONE ' 

2 ‘MO-  M-  I NONE  I 6 ) 

2 ’30-  1 NONE ( a JMAT  < ML l .NLOOP  > 

2 "’60-  <00  IT  IM.NE.3.AND.M.NE  . <>  CALL  PACK  ( I NONE  . MAXES  i I > 1 

2770-C 

2 ’HO-C  TH1  ABOVE  MAGIC  SETS  THE  MODE  OF  EACH  TASK  ACCORDING  TO  1 HE  FOLLOWING  i 

’*0-1  1>  IF  2ER0.  GETS  SET  TO  l OR  2 PER  NLOOP . 

2B00-C  2)  IF  3 OR  < i FORCED  DOTH  WAYS).  NO  CHANGE  IS  MADE. 

2810— C 3'  IF  1.  GETS  SET  TO  3 IF  Ni  OOP  IS  1.  WHEN  NLOOP  IS  2.  1 HE  FIVE  WILL 

2B20-C  WILL  HE  RESET  TO  ZERO.  TTS  WILL  BE  PROCESSED.  BUT  NO  1 OJI. 

2830-C  <)  IF  2.  GETS  SET  TO  0 FOR  NLOOP- !•  AND  AS  USUAL.  2 FOR  NLOOP-2.  TH 1 1 

28<0-C  PROHIBITS  TTS  AND  ALLOWS  OJT  PROCESSING. 

2830-C  3)  JMAT  IS  THE  MATRIX  SHOWN  BELOW.  FOR  EACH  NLOOP  AND  EACH  POSSIBLE 

2860-C  HO DC  NUMBER.  JMAT  IS  THE  RESULTANT  MODE  SETTING,  v CXCSPT  THAI  MODI 

2870-C  CANNOT  EQUAL  3 WHEN  NLOOP  - 1)  IF  THERE  IS  NO  CHANGE  TO  BE  MADE. 

2HB0-C 


2HV0-C 

M I 

Nl  OOP-1 

I NLOOP-2 

r^oo-c 

I 

1 

2* 1 0-C 

I 

I 

2920-C 

0 I 

1 

l 2 

2*30-C 

I 

I 

2^4 o*c 

1 I 

rs 

I 0 

2*30-C 

I 

I 

l'vAo*C 

2 I 

0 

I 

297  o-»C 

I 

I 

2*80— C 

3 I 

3 

I 3 

29V0+C 

I 

I 

JOOO-C 

< I 

4 

I 4 

30 1 0-C 

I 

i 

3020-C 

3 I 

- 

I 0 

3030— C 

30<0»  <10  PRINT  <20 

3050-  <20  FORMAT ( *0D0  YOU  WANT  TO  ENTER  AN  AL  TERNA 1 1 VE  MAPPING’. 

3060-  S * FROM  TAXONOMY’  ’ TO  TRAINING  OBJECTIVE1,  *' 

3070-  CALL  INP< 2.0.0. IANS ' .RETURNS!  'aO ' 

3080-  IF  iIANS.EO.O)  00  TO  <63 

3100-  PRINT  <30 

3110-  <30  I llRMAl  i ’OENTFR  THE  NUMBER  01  T MI  TRAINING  OBJECTIVE  ASS0CIA1ED*. 

3120-  t ’ WITH  EACH  OF  THE’  ’ FOLLOWING  TAXONOMIC  LEVELS.  WHERE  I ’ 

3130-  » ’ T.O.  I - LEARNING  IDENTIFICATIONS’  ’ T.O.  2 - LIARNING  PERCE)” 

3 MO-  l . ’ TUAl  DISCRIMINATIONS’  ’ T.O.  3 - UNDERSTANDING  PRINCIPLES’. 

3130-  1 ’ AND  RELATIONSHIPS’  ’ T.O.  < - LEARNING  PROCEDURAL  SEQUENCE’ 

3160-  » ’ T.O.  3 - MAKING  DECISIONS’  ’ T.O.  a - PERFORMING  SKILLED’. 

3170-  » ’ PERCEPTUAL  MOTOR  ACTS’  ' 

3180-  DO  <50  I -1.3 

31*0-  PRINT  <<0. LABEL ) I . < ' .1  ABEL i 2.< 1 • I 

3200-  <<0  FOKMATC IXAI0.A2. ’-’ . II . ’ > T.O.-  ’) 

3210-  <30  CALL  I NP < 0 . 1 . 6 . MAPPSV i l ' > . RE  TURNS C 7a0 ' 

3220-  DO  <60  1-1.3 

3230-  PRINT  <<0<LABEL< l .5> .LABEL  l2. 5' . T 

32  <0-  <aO  CALL  INP  ( 0. 1 . a .MAPCOIm  l ' ' • RE  TURNS  > ’aO  ' 

3230— C 
V*Art-r 


3270- 

3280- 

3290- 

3300- 

3310- 

3330- 

3340- 

3350- 

3360- 

3370- 

3380- 

3390- 

3400- 

3410- 

3420- 

3430- 

3440- 

3450- 

3460- 

3470- 

3480- 

3490- 

3500- 

3510- 

3520- 

3530- 

3540-C 

3550— C 

3555-C 

355e-C 

3560- 

3570- 

3580-C 

3590-C 

3600- 

3610- 

3620- 

3630- 

3640- 

3650- 

3660-C 

3670- 

3680- 

3690- 

3700- 

3710- 

3720- 

3’30- 

3731 -C 

3-32-C 

3733-C 

3740- 

3750- 

3760- 

3""’0- 

S^BO- 

3790- 

3800- 

3810- 

3820- 

3830- 

3840- 

3850- 

3860- 

3870- 

3880  = 


4a5  PRINT  470 

470  FORMAT^ *OtiO  YOU  WISH  TO  ENTER  AN  ALTERNATIVE  MAPPING1. 

1 /•  FROM  TRAINING  OBJECTIVE  TO  METHODS  AND  MED  I A 7 •) 

CALL  INP(2, 0.0.  IANS)  . RETURNS  ( 760  > 

IF  (IANS.EQ.O)  GO  TO  515 
PRINT  480 

480  FORMAT! ‘OENTER  THE  NUMBERS  OF  THE  TRAINING  METHOD  AND  TRAINING 
1 1 MEDIUM1  1 ASSOCIATED  UITH  EACH  OF  THE  FOLLOWING  TRAINING1. 

1 1 OBJECTIVES.  WHERE!1/1  METHOD  1 » INFORMAL  LECTURE 1 . T 40 . 
t ’MEDIUM  1 - TRANSPARENCIES1/1  METHOD  2 - DISCUSS  ION 1 . T 40 . 

1 ‘MEDIUM  2 » TRAINING  FILMS1/1  METHOD  3 • DEMONSTRAT I ON 1 . T 40 . 

1 ‘MEDIUM  3 - MOCK-UPS1/1  METHOD  4 - SIMULATION* . T40. 

I "MEDIUM  4 - SIMULATOR1/1  METHOD  5 - PERFORMANCE 1 . T40 . 

t "MEDIUM  5 - ACTUAL  EQUIPMENT1/1  METHOD  6 - OTHER  (LEFT  BLANK) 

1 T40. ‘MEDIUM  6 - OTHER  (LEFT  BLANK)*/) 

DO  510  1-1.6 

PRINT  490 . 1 » CODE ( 1 ) 

490  FORMAT ( ‘ TRAINING  OBJECTI VE- 1 , 1 1 . 1 ( METHOD  FOR  ".A3.1  * *) 

CALL  INP (0.1.6. MTHMAP ( I , 1 ) > . RETURNS ( 760 ) 

PRINT  500 . CODE ( 1 > 

500  FORMAT ( 23X . 1 MEDIUM  FOR  ‘.A3.1  - *) 

CALL  I NP  <0.1 . 6 . MEDMAP  < I . 1 ) ) .RETURNS ( 760 > 

PRINT  490. I .C0DE(2) 

CALL  INP  <0.1.6»MTHMAP( 1,2)) . RETURNS < 760 ) 

PRINT  500 » CODE ( 2 > 

510  CALL  INP  (0.1.6,  MEDMAP  (1.2)  )»  RETURNS  (760) 


USE  TAXONOMY-TO-TRAINING  OBJECTIVE-TO-METhODS  AND  MEDIA  MAPPINGS 
TO  ASSIGN  EACH  TASK  BLOCK  A TRAINING  METHOD  AND  MEDIUM. 

515  CALL  METMED(NITER.NLOOP) 

CALL  REPT(GRID.NLOOP) 


PRINT  520 

520  FORMAT! ‘ODD  YOU  WISH  TO  GENERATE  ANOTHER  METHODS  AND  MEDIA1, 
1 1 ASSIGNMENT*  •) 

CALL  INP (2. 0.0. IANS) . RETURNS ( 760 ) 

NITER-NITER+1 
IF  (IANS.EO.1)  GO  TO  410 

PRINT  530 

530  Ft  F.MA' ( *OD0  YOU  WISH  TO  REGENERATE  THE  TRAINING  PLAN*  ") 

P A._L  INP  (2 ,0.0.  IANS)  . RETURNS  < 760  ) 

IF  (IANS.EQ.O)  GO  TO  540 

NPi.OC-0 

GO  TO  220 

740  NHEDIA-O 

PREPARE  TO  SCHEDULE  TRAINING.  SELECT  CHARACTERISTIC  TO  ORDER 

TRAINING  SEQUENCE  AND  HIGH  COST  MEDIUM  TO  BE  ASSIGNED  OPTIMALLY. 
PRINT  550.  ( J .LABEL <1,J),LABEL(2,J),J-1>5) 

550  FORMAT  < ’CENTER  NUMBER  INDICATING  CHARACTERI ST  I C TO  GOVERN1, 
t 1 ORDERING  OF  TASKS1/1  FOR  TRAINING.  THIS  TASK  HIERARCHY1. 
1 1 ORDERS  FROM  LOW  TO  H I GH 1 • 5 < 1 2 , 1 - 1 , A 1 0 . A2 > 

t 1 O-KEEP  INITIAL  ORDERING  OF  TASKS1/1  - *> 

CALL  I NP  <0.0.5. NH IER  > .RETURNS ( 760 ) 

IF  (NL00P.EQ.2)  GO  TO  590 
PRINT  560 

560  FORMAT < 'OENTER  NUMBER  INDICATING  MEDIUM  TO  BE  OPTIMALLY1, 
t 1 SCHEDULED1/1  1 -TRANSPARENC I ES 1 / 1 2-TRAINING  FILMS1 
t 1 3-MOCK-UPS1/1  4-SIMULATORS1/1  5-ACTUAL  EQUIPMENT* 
t 1 O-IGNORE  OPTION1'1  - *' 

CALL  I NP (0.0.5. NMED 1 A ) .RETURNS! 760 ) 

PRINT  570 

*;70  FORMAT  (•  FNTFR  M T N T Ml  IM  HAAR  AT7F  FOR  TTR-  ■! 
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3890-  CALL  I NP  ! 0 . 0 . 0 » M IN  >.  RETURNS  < 760  > 

3900-  PRINT  380 

3910-  380  FORMAT! * ENTER  MAXIMUM  CLASS  SIZE  FOR  TTS-  *> 

3920-  CALL  INP10. MIN. 9999999999999999, MAX) . RETURNS ( 760 > 

3930-C 

3940-C 

3950-  590  CALL  SCHEDU ( NLOOP . NUMB . MEPTOT . KODE ) 

3960-  IF  (KODE-2)  620.600.630 

3970-  600  PRINT  610.NCL .NST! 1 > 

3980-  610  FORMAT  < /I5»  * TTS  CLASSES  ARE  NEEDED  FOR’. 15. 1 STUDENTS*) 

3990-  620  NUSE ( 1 ) - 1 

4000-  GO  TO  700 

4001- C 

4002- C  D.  TERMINE  NUMBER  OF  CLASSES  TO  FOLLOW  EACH  SCHEDULE  ARRANGEMENT. 

4003- C  NR  'REMAINDER  CLASSES  TO  BE  ASSIGNED  AS  NEEDED.  NUSE ! I > « NUMBER 

4004-  C OF  CLASSES  FOLLOWING  SCHEDULE  ARRANGEMENT  I. 

4010-  630  NPER-NCL/NSCH 

4020-  NR-NCL-!NPER*NSCH) 

4030-  DO  640  I-l.NSCH 

4040-  640  NUSE  < I ) —NR 

4050-  IF  <NR.EQ.O)  GO  TO  660 

4060-  DO  630  I — 1 .NR 

4070-  650  NUSE  ( I ) -NUSE  ( I ) + 1 

4080-  660  DO  670  I-l.NSCH 

4090-  670  IF  <NUSE< I ) .GT .0)  PRINT  680 . NUSE ( I > » I 

4100-  680  FORMAT  <14,*  CLASSES  FOLLOW  SCHEDULE  ARRANGEMENT *. 1 3 ) 

4110-  PRINT  690 . MED TOT . MED ( NMLPI A ) 

4120-  690  FORMAT! *OTHE  TRAINING  PROGRAM  REOU I RES  * . 1 3 . 1 X A 1 0 ) 

4130-C 

4 1 40— C 

4150-  700  DO  750  J-l.NSCH 

4160-  IF  ( NUSE ( J ) . LE . 0 ) GO  TO  750 

4170-  PRINT  710. J 

4180-  710  FORMAT ( * 0**  SCHEDULE  ARRANGEMENT *. 1 3 . * ***/ 

4190-  l * OSUBSYS  TASK  MODE  DAYS  COST *, 3X * METHOD  MEDIUM*) 

4200-  DO  730  I-l.NUMB 

4210-  KN-NSCHED  < I . J ) 

4220-  CALL  UNPACK  I MAXES ! KN >. I NONE > 

4230-  M- INONE  < 6 ) 

4240-  IF  (M.EQ.O)  GO  TO  730 

4230-  M2- INONE ! 7 ) 

4260-  M3- I NONE ! 8 > 

4270-  CALL  DECIDE(M.NLOOP.MM) 

4280-  NUM 1 - I NONE  ! 9 ) 

4290-  NUM2- INONE < 10) 

4300-  CALL  HALOES  < JTIMES ( KN ) > TUAL ) 

4310-  CALL  HALOES ! JCOSTS ! KN ) . COAL ) 

4320-  PRINT  720 . TRPL AN  < KN ) . KDUT  < NUM 1 ) .KTSMNUM2) .CODE (MM) . TUAL  <M) /B . . 

4330-  l COAL  <M) .MET (M2) .MED(M3) 

4340-  720  FORMAT! 1XA7. 1X2A2. *0* . 1XA3. 2F7. i ,2( 1XA10) ) 

4330-  730  CONTINUE 

4360-  PRINT  740 

4370-  740  FORMAT!///) 

4380-  730  CONTINUE 

4390-C 

4400-C 

4410-  IF  ! KOPT . ED . 0 • AND . NLOOP . EQ . 1 ' GO  TO  380 

4420-  760  PRINT  770 

4430-  770  FORMAT! *0D0  YOU  WANT  TO  GENERATE  A TRAINING  PLAN  FOR* 

4440-  > * ANOTHER  AFSC’  *' 

4450-  CALL  INP! 2.0.0. IANS) .RETURNS! 780) 

4460-  IF  (IANS.E0.1)  GO  TO  60 

4470-  "80  STOP 

4480-  END 

4490-  SUBROUTINE  SCREEN ( NK ). RETURNS ( ABOR T ) 

45AA-  nTMFNA  TON  I ABFI  N ! *,  ) . TI>6|  ( ■>  > , fU  V HI.))  I A 1 


55 


4510 

4530 
4550 
4560' 
45'0' 
4580 
4500 
4600 
46  10 
4615 
4620' 
4630 
4640 
4650' 
4660' 
4670 


C 

C 


4680 

4690 

4700 


4' 10' 
4720 


4730 

4740 

4750 

4760 

4770 

4780 

4790 


4800= 

4810- 

4820" 

4830- 

4840- 

4850- 

4860  = 

4870= 

4880-C 

4890-C 

4900-C 

491 0— C 

4920-C 

4930- 

4940* 


C0MM0N/BL0C1/  NBlGC.TRPLAN!350) .MAXES1350)  . JC0STS(350> . 

I JT I MES ( 350  ) • I NONE  110) 

COMMON/ SHARE  TASKS < 350) .KASTS! 350) . CS i 350 . 2 > . TS ( 350 . 2 ) 
COMMON/LABELS/LABEL 

COMMON/ NAMES/  OUT  ! 4 » 6 > • TSK  ( 4 > 62  > .NDUT16) .K TSK (62) > NDUT  » NTSK 
OATA  LABEL/' CRITICAL  IT* . ■ Y * • 'DIFFICULTY*  > ‘ '.' FREQUENCY ' . 

( ' • . * FSYCHOMOT O'.'R'.' COGN I TI UE ' • ' '.' CONST ANT ',  ' •/ 

IPA IR ( TVAL  > - IF  I X ( TVAL  < 1 > * 1 00  > + IF  IX ( TUAL < 2 ) * 1 00 > * 1 00000000 
OATA  ONE/M' 

SELECT  TASK  DECISION  ALGORITHM  ANO  THRESHOLDS 
10  PRINT  20 

20  FORMAT! 'OENTER  CUTOFF  LEVEL  (0  THRU  5)  FORI') 

00  40  1-1.5 

PRINT  30. LABEL!  1 . I ) .LABEH2.  I ) 

30  FORMAT! 1XA10.A2. ') 

40  CALL  INP  10.0.5.N!  I ) ) . RETURNS  ( 320  ) 

PRINT  50 

50  FORMAT  I • OENTER  SCREENING  OPTION'/*  1»'ANY'  DECISION  TREE*/ 
t * 2- ' ALL ' DECISION  TREE*/'  3-RMS  TEST'/'  4-UEIGHTED  AVERAGE'/ 

1 ' 5-PURE  AVERAGE'/*  * ') 

CALL  INP  10. 1.5.N0PT) . RETURNS ( 320 ) 

NBLOC-O 
NR- 1 

SET  UP  CONSTANTS  TO  BE  USED  IN  LOOP  8EL0U 
IF  (NOPT.LT. 3 > GO  TO  70 
ISUM-0 
SUM-0. 

DO  60  1-1 .5 

NI-N! I ) 

LN ( I ) -6-NI 
ISUM-ISUM+NI*NI 
60  SUM-SUM+NI 

IF  (N0PT.EQ.5)  GO  TO  70 
SUM-30. O-SUM 
SUM2-SUM/5 . 0 

LOOP  THROUGH  TASKS.  IF  KASTS  IS  NEGATIVE.  TASK  IS  TO  BE  FORCED 
THROUGH  THE  SCREENING.  IF  THE  FIRST  CHARACTER  OF  TASKS  IS  '1'. 

THE  TASKS  IS  FLAGGED  TO  HAVE  PASSED  THE  SCREENING.  IT  IS  INITIALLY 
SET  TO  ZERO  BEFORE  THE  SCREENING  PROCESS. 

70  KAS-KASTS(NR) 

CALL  UNPACK! IABS(KAS) . IX ) 


4950  = 
4960  = 
4970= 
4980  = 

499 0- 

5000-C 


50 1 0=C 

ANY 

5020= 

90 

5030= 

5040  = 

100 

5050= 

50e0“C 

5070-C 

ALL 

5080  = 

110 

5090- 

5100- 

120 

5110= 

5120-C 

5130-C 

RMS 

5140- 

130 

5150= 

5160  = 

1 40 

DEC0DE(9.75,TASKS(NR' > TEST, SYS. SUB 
IF  ! TEST. EQ. ONE)  GO  TO  300 
FORMAT ! A1 .A7.A1 ) 

IF  (KAS.LT.O)  GO  TO  200 

GO  TO  (90. 110. 130, 150. 180). NOPT 

DECISION  TREE 
DO  100  1-1.5 

IF  < I X ( I ) .GE.N(I)  > GO  TO  200 

CONTINUE 

GO  TO  300 

DECISION  TREE 
DO  120  1-1.5 

IF  ( IX  < I ) .LT.N(D)  GO  TO  300 

CONTINUE 

GO  TO  200 

TEST 

IT-0 

DO  140  1=1.5 

TT-TT+TX! T ) **  7 
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IF  v I T- I SUM ) 300.200.200 


5170* 

5 1 80*C 


51  °0 
5200 
5210 
5220 
5230 
5240 
5250 
52*0 
5270 
5280 
52<>0 
5300 
5310 
5320 
5330 
5340 
5350 
5360 
5370 
5380 
5390 
5400 
5410 
5420 
5430 
5440 
5450 
5460 
5470 
5480 
5490 
5500 
5510 
5520 
5530 
5540 
5550 
5560 
5570 
5580 
5590 
5600 


WE  I GHTED  AUER AGE 
150  AUE-O. 

DO  160  1-1.5 

160  AUE-AUE+ I X ( I ) *LN ( I ) /SUM 
IF  i AUE-SUM2 ) 300.200.200 

PURE  AUER AGE 
180  AUE-O. 

DO  1 90  1-1.5 

190  AUE-AUE+ IX ( I ) 

IF  ( AUE . LT , SUM > GO  TO  300 

SELECTED  TASK.  TRAIN  ALL  SUBTASKS  WITHIN  TASK  BLOCK. 

200  NBLOC-NBLOC+1 
IJ-NR 

I BASE- I X ( 10) 

I DUTY-IX ( 9 ) 

SEE  IF  PREDECESSOR  IS  SAME  SYSTEM/DUTY/TASK 
210  IJ-IJ-1 

IF  <IJ.LT. 1 ) GO  TO  220 

DECODE (9,?5.TASKS<IJ> ) TEST . S YSNEW . SUBNEU 
IF  ( SYS  . NE  . 3 YSNEW ) GO  TO  220 
CALL  UNPACK  <IABS(KASTS(IJ)).IX> 

IF  ( IX  < 9 ) . EO • I DUTY . AND . I BASE . EG . I X < 10 ) > GO  TO  210 

IJ  WILL  MARK  THE  FIRST  SUBTASK  OF  A TASK  BLOCK.  WE  SET  MODE 
AND  METHOD  AND  MEDIA.  INITIALIZE  TIMES  AND  COSTS  AND  PREPARE 
FOR  FINDING  CHARACTERISTIC  MAXIMA. 

220  IJ-IJ+1 

JTIMES  < NBLOC  > -0 

JCOSTS ( NBLOC ) -0 

TRPLAN ( NBLOC ) -SYS 

CALL  UNPACK  < IABS<KASTS<IJ> ) .IX) 

MODE- 1 X ( 8 ) 

DO  230  J-1.5 

230  I NONE ( J ) -0 

DO  235  J-6.10 

235  I NONE (J)-IX(J) 

TUAL  < 1 )-0. 

TUAL ( 2 ) -0 . 

CVAL  < 1 ) —0 . 


56J0-C 

CUAL (2)-0. 

5630-C 

NOW 

EACH  SUBTASK 

5640- 

240 

DO  250  J-1,2 

5650” 

IF  < MODE . EQ . 3- J ) GO  TO  250 

5660- 

TUAL  < J ) -TUAL U)+TS(IJ»J) 

5670- 

CUAL ( J ) -CUAL  ( J ) +CS  < IJ.J) 

5680- 

250 

CONTINUE 

5690- 

DO  260  J-1.5 

5700- 

MM-IX(J) 

5710- 

260 

IF  ( MM . GT . INONE i J) ) INONE(J)-MM 

5720- 

ENCODE <9,265. TASKS( IJ) > SYS. SUB 

5730- 

5740-C 

265 

FORMAT  < ' 1 * .A7.A1 ) 

5750-C 

SEE 

IF  NEXT  TASK  IS  IN  SAME  GROUP  OF  SUBTASKS 

5760- 

IJ-IJ+1 

5770- 

IF  (IJ.LE.NR)  GO  TO  270 

5780- 

IF  (IJ.GT.NK)  GO  TO  280 

5790- 

DECODE < 9 , 75. TASKS. IJ) > TEST . SYSNEU . SUBNEW 

5800- 

IF  (SYSNEU. NE. SYS)  GO  TO  280 

— iRI  0- 

-‘■'D 

TAI  1 UNPACK < TARR( KARTS  < T 1) ) . TX) 
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5820= 
5830-C 
5840-C 
5850- 
5860* 
5870= 
5880- 
5890-C 
5900-C 
5910- 
5920- 
5930- 
5940- 
5950- 
5960- 
'9-0- 
5980  = 
5990- 
6000- 
6010-C 
6020-C 
6030-C 
6040-C 
6050-C 
6060-C 
6070-C 
6080-C 
6090- 
6100“ 
6110- 
6120- 
6130= 
6140* 
6150- 
6160- 
6170- 
6180- 
6190  = 
6200-C 
6210-C 
6220“ 


6230- 

6240= 

o 

n 

6250- 

6260“ 

6270- 

30 

6280- 

6290- 

6300- 

40 

6310- 

6320-C 

6330- 

6340  = 

6350- 

6360  = 

6370- 

50 

6380  = 

6390- 

6400  = 

6410  = 

60 

642 0- 

6430- 

6440- 

6450= 

6460* 

70 

6470-F 

IF  ( I J.LE. NR. OR. < IX (9) .EG. IDUTY. AND. IX . 10) .EG. I BASE) >G0T0240 

FINALIZE  task  block  parameters 
280  CALL  PACK* I NONE . MAXES C NBLOC ) > 

JTI MES ( NBLOC >*IPA IRC TVAL > 

JCOSTS  C NBLOC  ) * IF' A I R l COAL ) 

TRPLAN ( NBLOC  > -SYS 

NEXT  TASK 
300  NR-NR+1 

IF  (NR.LE.NK)  GO  TO  70 
IF  (NBLOC.GT.O)  RETURN 
PRINT  310 

310  FORMATCONO  TASKS  PASSED  SCREENING.  INPUT  NEU  CHOICES  * ) 

GO  TO  10 

320  RETURN  ABORT 
END 

SUBROUTINE  TRMODE ( NOPT ) . RETURNS ( ABORT ) 

DIMENSION  TTSOJT ( 4 ) .COEFF (4.6) . INPUT  1 ( 4 ) . INPUT2C4) , INPUT3(4 ) 

INPUT 1 - 0 TO  USE  TTS  AND  OJT  TIMES  AND  COSTS  AS  THEY  ARE 

1 TO  USE  REGRESSION  COEFFICIENTS  TO  DERIVE  SOME  OR  ALL 

INPUT2  - 0 TO  ENTER  YOUR  OWN  COEFFICIENTS  FOR  THIS  CATEGORY 

1 TO  USE  THE  DEFAULT  VALUES  (OR  VALUES  ENTERED  PREVIOU73LY ) 
INPUT3  - 0 TO  DERIVE  VALUES  FOR  ALL  TASK  BLOCKS  FOR  THIS  CATEGORY 

1 TO  DERIVE  VALUES  ONLY  IF  CURRENTLY  ZERO 

DIMENSION  T(2)»C(2> . TVAL ( 2 ) .CVALC2) 

COMMON /BLOC  1 / NBLOC . TRPLAN ( 350 ) -MAXES(350' . JC0STS<350) . 

S JTINES ( 350 ) . I NONE ( 10 ) 

COMMON /BLOC 3/  NTR . NST ( 2 > . DUM ( 36 ) 

COMMON/LABELS/LABEL <2. 6) 

C0MM0N/MINT/C0DE<2> 

DATA  COEFF /O . .0. .-.240886.1 .137375.0. .0. .-1.130284.6. 14645. 
t 0. .0. .-124.5503.-1 .487537.0. .0. .-2.23228.2.534994, 
l 0. ,0. . 14,86655.1 . 1387448.15. .4,36.617.4578,-7.725949/ 

DATA  TTSOJT / * TTS  COSTS*. *OJT  COSTS*. *TTS  TIMES*. *OJT  TIMES*/ 
IPAIRCTVAL )=IFIX(TVALl 1 )*100>  + IF  IX ( TVAL ( 2 )* 1 00 )* 1 00000000 

INPUT  REGRESSION  CHOICES 
NSUM-0 
PRINT  20 

FORMAT  < * ODO  YOU  WISH  TO  USE  REGRESSION  COEFFICIENTS  FOR ! * ) 

DO  40  K-1.4 

PRINT  30 . TTSOJT ( K ) 

FORMAT ( 1 XA9 • • 7 •) 

CALL  INP (2, 0.0. IANS) . RETURNS i 330 ) 

INPUT1 (K)-IANS 
IF  (IANS.EO.O)  NSUM-NSUM+1 
IF  (NSUM.E0.4)  GO  TO  200 

MSUM-0 

DO  70  K-1.4 

IF  ( INPUT1 (K) .EQ.O)  GO  TO  70 
PRINT  50 . TTSOJT  < K ) 


FOR  ONLY  THOSE 


1 ’WHICH  ARE  CURRENTLY  ZERO7  *' 

CALL  INP (2.O.O. I NPUT3 ( K ) ) . RETURNS ( 330 ) 
PRINT  60. TTSOJT (K) 

FORMAT ( * WILL  YOU  USE  DEFAULT  REGRESSIC 
I 1 XA9 , * 7 *) 

CALL  INP (2. 0.0. IANS) . RETURNS ( 330 ) 
INPUT2(K '-IANS 
IF  (IANS.EO.O'  MSUM-MSUM+1 
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6480=C 
6490  = 
6500  = 
6510= 
6520= 
6530= 
6540  = 
6550= 
6560  = 
6570= 
6580= 
6590= 
6600-C 
6610-C 
6620= 
6o30= 
6650  = 
6660= 
6670  = 
6680«C 
6690= 
6700-C 
6710-C 
6720= 
6730= 
6740= 
6750” 
6760  = 
6770  = 
6780—C 
6790-C 
6800-C 
6810-C 
6820= 
6830- 
6840= 
6860= 
6870* 
6880= 
6890  = 
6900  = 
6910  = 
6920= 
6930  = 
6940= 
6950-C 
6960-C 
6970= 
6980= 
6990  = 
7000= 
7010= 
7020= 
7030= 
7040  = 
7050  = 
7060= 
7070= 
7080= 
7090  = 
7100  = 
7110  = 
7120= 
7130= 

7 1 40  = 
71  «io«r 


INFUT  REGRESSION  COEFFICIENTS 
IF  (MSUM.EQ.O)  GO  TO  120 
DO  110  1 = 1 >4 

IF  < INPUT  1 ( I > • CQ • 0 ) GO  TO  110 
IF  ( INF'UT2 < I > . EQ . 1 ) GO  TO  110 
PRINT  SO.TTSOJT(I) 

80  FORMAT ( * TO  DERIVE  ,.A9.‘.  ENTER  REGRESSION  COEFFICIENTS  FOR 
DO  100  J-1.6 

PRINT  90.LABEU1.J)  .LABEL12.J) 

90  FORMAT: 1XA10.A2. *> 

100  CALL  INP  ( 1 > 0 * 0 > COEFF ( I . J ) > > RETURNS ( 330  > 

110  CONTINUE 

UPDATE  TASK  DATA  BASED  ON  NEW  CHOICES 
120  DO  180  1 = 1. NBLOC 

CALL  UNPACK (MAXES! I) rlNONE) 

DO  180  K«1  »4 

IF  ( INPUT  1 < K ) ■ EQ  • 0 > GO  TO  180 
MODE»HOD ( K » 2 ) 

DISALLOW  ENTERING  DATA  FOR  OPPOSITE  OF  FORCED  MODE 
IF  ( MODE  . EQ  • 3- 1 NONE  ( 6 > ) GO  TO  180 

EXTRACT  CURRENT  VALUE 

IF  (K.GT.O)  GO  TO  130 
JTEMP- JCOSTS ( I ) 

GO  TO  140 

130  JTEMP- JTIMES < I ) 

140  CALL  HAL VESC JTEMP. TVAL) 

TEMP-TVAL  < MODE ) 

TEMP  IS  THE  TTS  OR  OJT  COST  OR  TIME  INITIALLY  SUPPLIAD  ONt 

THE  TASK  DATA  INPUT.  IF  ZERO.  WE  WILL  REGRESS  FOR  IT.  OF  NOT  WE 

CHECK  INPUT3  TO  SEE  IF  WE  SHOULD  OVERRIDE  OR  RETAIN  IT. 

IF  (TEMP. EQ. 0.0)  GO  TO  1."' 

IF  (INPUT3(K) .EQ. 1 > GO  TO  180 
TEMP-0.0 

150  DO  160  J-1.5 

160  TEMP-TEMP  + COEFF ( K . J ) 4 1 NONE < J 1 
TVAL ( MODE ) -TEMP+COEFF ( K . 6 ) 

JTEMP” IF AIR ( TVAL ) 

IF  (K.GT.2)  GO  TO  170 
JCOSTSC I )=JTEMP 
GO  TO  180 

170  JTIMES( I )«JTEMP 
180  CONTINUE 

SUM  UP  COSTS  AND  TIMES  FOR  BOTH  TRAINING  MODES 
200  DO  210  J-1.2 

C( J)»0. 

210  T ( J ) =0 . 

DO  230  1=1. NBLOC 

CALL  HALVESC JTIMES< I ) .TVAL ) 

CALL  HALVESC JCOSTS( I > .CVAL) 

DO  220  J-1.2 

TEMP-TVAL (J) 

T ( J ) =T  < J ) +TEMP 
CEMP"CVALCJ)*TEMP 
CVAL ( J ) =CEMP 
220  C( J)=C< J)+CEMP 
230  JCOSTSC I >«IPAIR( CVAL ) 

PRINT  240. <T< J)/8. . J=1 .2) . (C( J) . J=1 . 2) 

240  FORMAT ( *0TIME  TO  TRAIN  IS  SCHOOL  I ,.F5.1.‘  DAYS". IX 
t "TIME  TO  TRAIN  IN  OJT!  '.FS.!.*  DAYS  * / 

1 ■ COST  TO  TRAIN  IN  SCHOOL:  1 
1 . F 1 0 . 1 . * COST  TO  TRAIN  IN  OJT:  *»F10.1) 


'160»C 
'170  = 

7 1 80* 
'190= 
"200= 
72 1 0= 
”220“ 
'230  = 
'240= 
7250= 
'260*C 
'270-C 
7280* 
'290= 
'300= 
7310= 
7320= 
7330= 
7340= 
7350= 
'360= 
7370= 
7380= 
7390= 
7400= 
741 0=C 
7420«C 
7430= 
7440  = 
7450  = 
7460  = 
7470= 
7480= 
7490= 
7500-C 
751 0«C 
7520= 
7530= 
7540  = 
7545-C 
7550= 
7560«C 
7570=C 
7580«C 
'590= 
7600= 
7610= 
7620= 
7630= 
7640= 
7650= 
7660= 
7670  = 
'680  = 
7690= 
7700= 
7710= 
7720=C 
7730=C 
7735=C 
7740  = 
7750= 
7760  = 
7765=C 
7770= 
77S0=C 


GET  TRAINING  OPTION  A NO  TIME  LIMIT 
PRINT  250 

250  FORMAT  <*0INPUT  TRAINING  MODE  OPTION: •/*  1=N0N-MIX*/ 
i * 2=SCHOQL/0 JT  TRAINING  MIX*/*  = •) 

CALL  I NP  <0.1.2, NOF’T  ) . RETURNS  ( 330  > 

PRINT  260 

260  format: ’OENTER  time  restriction  for  training  PROGRAM-  •) 

CAL-  INP( 1 .0.0. TM) .RETURNS<330 ) 

TNT  IME  *8  . *TM 

IF  (N0PT.EQ.2)  GO  TO  620 

NON-MIX  TRAINING  OPTION.  DETERMINE  LIMITATION  BASED  ON  TIME  1 COST 
265  PRINT  270 

270  FORMAT <*  ENTER  MAX  PER  STUDENT  COST  FOR  TRAINING  PROGRAM-  •> 
CALL  INP< 1 .0.0 .COST) .RETURNS <330 ) 

280  KT =0 
NC=0 

DO  300  J=  1 . 2 

IF  <T< J> .GT.TNTIME)  GO  TO  290 
KT-KT+J 

290  IF  <C(J> .GT.COST)  GO  TO  300 
NC»KC+ J 
300  CONTINUE 
KKT-KT+1 

GO  TO  (310. 340.440.520) .KKT 

NEITHER  SCHOOL  NOR  OJT  MEETS  TIME  CONSTRAINT 
310  PRINT  320 

320  FORMAT: ’OTIME  CONSTRAINT  NOT  SATISFIED  BY  SCHOOL  OR  OJT’/ 

1 * INPUT  NEW  VALUE  FOR  TOTAL  TIME  TO  TRAIN-  •> 

CALL  INP< 1.0.0. TM) . RETURNS < 330 ) 

TNTIME»TM*8. 

IF  ( TNT IME. GT. 0.0)  GO  TO  280 
330  RETURN  ABORT 

ONLY  SCHOOL  MEETS  TIME  CONSTRAINT  - CHECK  FOR  COST  CONSTRAINT 
340  IF  (KC.EQ. 1 .0R.KC.EQ.3)  GO  TO  380 
PRINT  350 

350  FORMAT< • SCHOOL  MEETS  TIME  CONSTRAINT.  BUT  COST  TOO  HIGH’) 

ALLOW  NEW  MAX  COST  SELECTION 
GO  TO  265 

FORCE  TO  SCHOOL.  IF  ALREADY  FORCED  OJT,  SET  TO  ZERO . 3 
IF  • BOTH  * FLAG  IS  SET  (MODE  IS  3 OR  4 ) , LEAVE  IT  ALONE. 

380  PRINT  390 

390  FORMAT  < ‘OTIME  AND  COST  CONSTRAINTS  FORCE  ALL  STUDENTS  TO  SCHOOL*) 
NST< 1 )=NTR 
DO  430  1=1. NBLOC 

CALL  UNPACK (MAXES (I). I NONE) 

M= I NONE ( 6 ) + 1 

GO  TO  ( 400.430.410.430.430) »M 
400  I NONE  < 6 ) *1 
GO  TO  420 
410  INONE  < 6 ) *0 

420  CALL  PACK  < INONE . MAXES ( I > > 

430  CONTINUE 
RETURN 

ONLY  OJT  MEETS  TIME  CONSTRAINT 
CHECK  FOR  COST  CONSTRAINT 
440  IF  (KC.GE.2)  GO  TO  460 
PRINT  450 

450  FORMAT! *00JT  MEETS  TIME  CONSTRAINT.  BUT  COST  TOO  HIGH*) 

ALLOW  NEW  MAX  COST  SELECTION 
GO  TO  265 
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'-XJO-C 

’SOO-C 

7810- 

',820» 

7830- 

7840- 

->850- 

’8*0- 

’870- 

7880- 

’890- 

7900- 

79  JO- 

7920- 

7930- 

7940— C 

7950-C 

7933-c 

79*0- 

7970- 

7980- 

’990- 

8000-C 

8010-C 

8015- 

80 1 *»C 

80 1 7- C 

8018- C 
8020- 
8050- 
80*0- 
8070- 
8080- 
9090- 
8100-C 
9110- 
8120- 
8130- 
81  40- 
8150- 
81*0- 
8170- 
8180- 
8190- 
8300- 
8210* 
3220- 
8230- 
8240-C 
9250-C 
82*0- 
8270- 
9280- 
8290- 
8300- 
8301* 
8302- 
8310-C 
8320-C 
8330- 
8340- 
9350- 
83*0- 

8370- 

837 1 - C 
4377-r 


FORCE  TO  OJT.  IF  ALREADY  FORCED  TTS.  SET  TO  ZERO.  IF 
> DOTH  * FLAG  IS  SET.  LEAVE  IT  ALONE. 

4*0  PRINT  470 

470  FORMAT ( • OT I ME  AND  COST  CONSTRAINTS  FORCE  ALL  STUDENTS  TO  OJT* 
NST ( 1 ) -0 

DO  510  I-l.NDLOC 

CALL  UNPACK ( MAXES  < I > • INONE ) 

M- I NONE ( * ) 

IF  (M-l)  480.490.510 
480  I NONE (61-2 
GO  TO  500 
490  I NONE ( * ) -0 

500  CALL  PACK ( INONE  » MAXES ( I ) ) 

510  CONTINUE 
RETURN 

BOTH  MODES  MEET  TIME  CONSTRAINT 
CHECK  BOTH  AGAINST  COST  CONSTRAINT 
520  IF  (KC.GT.O)  GO  TO  540 
PRINT  530 

530  FORMAT  < • NEITHER  SCHOOL  NOR  OJT  MEETS  COST  CONSTRAINT*) 

GO  TO  265 

BOTH  MODES  MEET  BOTH  CONSTRAINTS 
540  GO  TO  (380.4*0.545) .KC 

BOTH  MODES  MEET  BOTH  CONSTRAINTS 
COMPUTE  TRAINEE  SPLIT  BETWEEN  2 MODES. 

545  NOPT-O 

XNS- (C0ST-C(2)*NTR>/(C(1)-C(2>  ) 

IF  (XNS.GT.O. ) GO  TO  550 
XNS— 0 . 

GO  TO  5*0 

550  IF  (IFIX(XNS).GT.NTR)  XNS-NTR 

5*0  NST ( 1 ) -XNS 

NST ( 2 ) -NTR-NST ( 1 ) 

PNS-NST il)*100.0/NTR 
PNO-NST(2)«100.0/NTR 
PRINT  570. NTR. COST. NST. PNS.PNO 

570  FORMAT ( * OA  TRAINING  PROGRAM  .”>R  *.I4,*  STUDENTS.  MAX  PER  * 

! .‘STUDENT  COST  OF  > . F* . 0 . * 1 * / 10X 1 8 . * STUDENTS  TO  SCHOOL1. 9X 
t 18.*  STUDENTS  TO  OJT*/*  PERCENT  SPLIT!  *.F5.1.*S:  SCHOOL.  * 
t . F3 . 1 • * X OJT  •//•  YOU  CAN  ACCEPT  THE  CURRENT  SPLIT.1 
I .*  INPUT  A NEW  VALUE  FOR  COST  LIMIT1/1  AND  RECOMPUTE  THE1 
1 .'.  OR  INPUT  THE  SPLIT  DIRECTLY.1/1  KEEP  THE  ABOVE  SPL ITT 
CALL  INF <2. 0.0. IANS) . RETURNS < 330 ) 

IF  (IANS.EQ.1)  GO  TO  *15 

RECOMPUTE  NEW  SPLIT 
PRINT  580 

580  FORMATCODO  YOU  WISH  TO  ENTER  A NEW  COST  LIMIT  AND1, 
t 1 RECOMPUTE  THE  SPLIT’  •) 

CALL  I NP( 2. 0.0. IANS) .RETURNS <330 ) 

IF  ( IANS.EQ.O)  GO  TO  *05 

NOPT-O 

GO  TO  2*5 

INPUT  SPLIT  DIRECTLY 
*05  PRINT  610 

*10  FORMAT;1  INPUT  PERCENT  STUDENTS  TO  SCHOOL-  •> 

CALL  INP( 1 .0. . 100. .SCH) .RETURNS v 330) 

NST  < 1 >-SCH*.01*NTR 
NST  <2)— NTR-NST ( 1 ) 

Tp  FTTMPK  MOTlF  MAR  ND  STIinFNTA.  FORFF  THF  MDDFI  AFPORn  T N01  Y 
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8373*  615  IF  ( NST ( 1 ) . EC1 . 0 ) GO  TO  460 

8374=  IF  <NST(2) .EO.O)  GO  TO  380 

8380=  RETURN 

8390=C 

8400=C  MIX  OPTION 

3405-C  TRAINING  MOtlE  SELECTED  TO  MINIMIZE  COST  SUBJECT  TO  TIME  CONSTRAINT 
8410=  620  NST  ( 1 ) =NTR 

8420=  PRINT  630 

8430=  *30  FORMAT ( * 0D0  YOU  WANT  THE  OPTION  TO  SEND  TASKS  WITH*. 

3440=  i 1 SPECIFIC  LEVELS’/*  OF  A PRIMARY  CHARACTERISTIC  TO’. 

8450*  S ’ EITHER  TTS  OR  OJT  7 ’> 

8460=  CALL  INP  (2.0.0.  IANS  > » RETURNS  ( 330  ) 

3470=  IF  (IANS. EQ.O)  GO  TO  710 

8480=  PRINT  640. (J. LABEL (l.J)> LABEL (2>J)>J=1>5) 

8490=  640  FORMAT ( ’ ENTER  NUMBER  INDICATING  THE  PRIMARY  CHARACTERISTIC’. 

8500=  i ’ FOR  THE  SCHOOL/OJT  DECISION  C,  5 ( /I2  .’»’ .A10 . A2 )/ ’ » ’> 

8510=  CALL  INP(0.1.5.NCHAR) . RETURNS ( 330 > 

8520=  PRINT  650 

3530=  650  FORMATt’OALL  TASKS  WITH  PRIMARY  CHARACTERISTIC  VALUES’. 

8540=  1 ’ BETWEEN  N1  AND  N2’/’  WILL  BE  TRAINED  BY  XC/ 

8550=  1 ’ ENTER  1.2. 3. 4.  OR  5 FOR  Nl-  ’) 

3560=  CALL  I NP ( 0 . 1 . 5 . N1 > . RETURNS < 330 ) 

8570=  IF  (N1.EQ.5)  GO  TO  670 

8580=  PRINT  660 

8590=  660  FORMATC’  ENTER  1.2. 3. 4 OR  5 FOR  N2  SUCH  THAT  NC'.-Nl  - ’> 

8o00»  CALL  INP  < 0 . N1 . 5 » N2 ) . RETURNS  < 330 ) 

8610-  GO  TO  680 

3620=  670  N2=5 

8630=  680  PRINT  690 

3640=  690  FORMATC  ENTER  X.  WHERE  1»TTS.  2-OJT  - ’) 

8650=  CALL  I NP ( 0 . 1 . 2 . MFLAG ) . RETURNS t 330 > 

8660-C 

3670-C  SET  MODE  FOR  TASKS  WHICH  MEET  ABOVE  CRITERIA 

8680=  DO  700  I«1.NBL0C 

8690=  CALL  UNPACK  ( MAXES  ( I ).  INONE  > 

8700=  M=IN0NE<6> 

8710=  IF  (M.GT.O)  GO  TO  700 

8720-  NCH= I NONE ( NCHAR ) 

8730=  IF  (NCH.GT.N2.0R.NCH.LT.N1)  GO  TO  700 

8740=  INONE ( 6 > -MFLAG 

8750=  CALL  PACK ( I NONE  » MAXES ( I ) ) 

8760=  700  CONTINUE 

8770=  710  CALL  DYPROG i TNT IME ). RETURNS ( 330 ) 

8780=  RETURN 

8790=  END 

8800=  SUBROUTINE  CONV(I.J) 

8810-  COMMON/NAMES/DUT (4.6) .TSK(4.62> .KDUT(6) .KTSM62) .NDUT.NTSK 

8820-C 

9830-C  this  ROUTINE  CONVERTS  DUTY  LITERAL  ’I*  AND  TASK  LITERAL  ’J* 

8840-C  TO  INDICIES  OF  ARRAYS  IN  COrtMON/NAMES/ 

8850=  DO  10  II-l.NDUT 

8860=  IF  (I.EQ.KDUT(II) ) GO  TO  20 

8870=  10  CONTINUE 

8880=  11=1 

88«0=  20  I » 1 1 

8900-C 

8910=  DO  30  . JJ-l.NTSK 

8920=  IF  ( J.EQ.KTSK( JJ> ) GO  TO  40 

8930=  30  CONTINUE 

8940=  JJ«1 

8950=  40  J=JJ 

8960=  RETURN 

89->o»  END 

8980=  SUBROUTINE  FACMJRAY.J) 

8990*  DIMENSION  JRA Y ( 1 0 ) . MULT ( 8 ) 

9000=  HAT 6 MIIIT/1.10.1  00 . 1 OOO  . 1 OOOO  . 1 OOOOO  • 1 OOOOOO  • 1 OOOOOOO 
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901 0-C 

9020-C  THIS  ROUTINE  PACKS  10  INTEGERS  IN  JRAY(l)  THRU  JRAY(IO) 

9030-C  INTO  THE  LAST  13  DIGITS  OF  WORD  J.  1-9  ARE  SINGLE  DIGIT  INTEGERS. 
9040-C  9 IS  2 DIGITS.  10  IS  3 DIGITS. 

9050-  J»0 

9060*  DO  10  K* 1 . 8 

9070*  10  J-J+JRAY(K)*MULT(N) 

9080-C 

9090*  J- J + JR'A  Y ( 9 ) * 1 00000000+ JRAY  < 1 0 ) * 1 0000000000 

9100*  RETURN 

9110*  END 

9120*  SUBROUTINE  UNPACK C J . JRAY ) 

9130-  DIMENSION  JRAY (10) 

9140-C  THIS  ROUTINE  REVERSES  ’PACK* 

9130*  JTOT-J 

9 1 ©0*  DO  10  K* 1 » 8 

9170-  JNEW-JT0T/10 

9190-  JRAY ( K ) - JTOT  - <JNEU*10> 

9190*  10  JTOT-JNEU 

9200*C 

9210-  JNEW-JT0T/100 

9220-  JRAY(9)-JT0T  - ( JNEW* 1 00 ) 

9230-  JRAY ( 10  > - JNEU 

9240-  RETURN 

9230-  END 

9260-  SUBROUTINE  HALVES ( INT . UAL ) 

9270-  DIMENSION  VAL<2> 

9280-C 

9290-C  THIS  ROUTINE  SPLITS  *INT*  INTO  2 8-DIGIT  INTEGERS 
9300-C  AND  CONVERTS  EACH  FROM  THOUSANDTHS  TO  A REAL  NUMBER 
9310-  I 2- I NT/ 100000000 

9320-  1 1 -INT-  (12*100000000) 

9330-  VAL ( 1 ) - 1 1 * . 01 

9340-  VAL (2)-I2*.01 

9350-  RETURN 

9360-  END 

9370-  SUBROUTINE  INP ( JFLAG . M IN . MAX . INT >. RETURNS . ABORT ) 

9380-  EQUI VALENCE <JM IN. AM  IN' . < JMAX.AMAX) . ( J I NT. A I NT) 

9390-  DIMENSION  CH < 80 ) 

9400-  DATA  BL.J.COM/'  •.O.*.*/ 

9410-  1 IF  (J.EQ.O)  READ (5.5)  CH 

9420-  3 FORMAT  < 80A1 ) 

9430-  IF  ( JFLAG-1 ) 20.100.500 

9440— C 

9450— C READ  FIRST  CHARACTER  OF  INTEGER.  IGNORE  BLANK  OR  ONE  PLUS. 

94©0-C  ERROR  ON  - OR  . OR  . OR  ANY  LETTER. 

9470-  20  NP-0 

9480-  30  J-J+l 

9490-  IF  (J.GT.80)  GO  TO  540 

9500-  CALL  r IND<CH< J) .NODE) . RETURNS ( 530  ) 

9310-  IF  (K0DE.LT.1.0R.K0DE.GT.14)  GO  TO  540 

9520-  IF  (KODE.LT.il)  GO  TO  40 

9330-  K0DE-K0D9-10 

9540-  GO  TO  (30.540.340.33) .KODE 

9350-C 

9360-C  ALLOW  ONLY  ONE  PLUS  SIGN 
9570-  33  IF  (KP.EQ.l)  GO  TO  540 

9580-  KP-1 

9390*  GO  TO  30 

9600-C 

9610-C  INITIALIZE  NUMBER.  THEN  GET  NEXT  DIGIT.  BLANK  OR  COMMA  IS  DELIMITER. 
9620-  40  INT-KOPE-1 

°630-  50  J-J+l 

9©40»  IF  (J.GT.80)  00  TO  340 

9650-  CALL  F I ND ( CH . J ) » KOBE  > • RETURNS ( 530 ' 

9AA0-  TF  ( KflDF  .1  T . 1 . OR  . KDflF  . AT  .17)  GO  Tn  -.40 
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9o  70* 

IF  (K0PE.LT.11)  GO  TO  60 

9fc0O» 

GO  TO  70 

9a»o«C 

9’00-C 

CONVERT  DIGIT.  GET  NEXT  NUMBER 

9?10» 

60  I NT- INT *10  + KOPE-1 

9720- 

GO  TO  50 

9"’30*C 

9+40-C 

ALL  THROUGH.  CHECK  RANGE  AND  ASSURE  BLANKS 

9’50* 

70  IF  CMIN.EQ.O.ANP.MAX.EQ.O)  GO  TO  80 

9?o0« 

IF  ( INT.LT.HIN.OR. INT. GT. MAX'  GG  TO 

540 

9-70- 

80  IF  (CH(J) .EQ.COM)  RETURN 

9">80» 

82  J-J+l 

9790* 

85  IF  (J.GT.80)  GO  TO  90 

9800- 

96  IF  (CH(J> .EQ.COM)  RETURN 

9810- 

IF  (CH( J) .NE.BL)  GO  TO  540 

°920* 

GO  TO  82 

9830- 

90  J-0 

994v.» 

RETURN 

9850-C 

9860-C 

READ  FIRST  REAL  CHARACTER.  • IS  ERROR. 

SET 

98?0« 

100  KD-0 

9880- 

KM-0 

9890- 

KP-0 

9900- 

FACT-. 1 

OQ2  0- 

110  J-J+l 

0920- 

IF  (J.GT.80)  GO  TO  540 

0930- 

CALL  FIND(CH( J) .KODE) . RETURNS C 530 > 

9940- 

IF  CKODE.LT. 1 .OR .KODE . GT . 15)  GO  TO 

540 

0930- 

IF  (KODE.LT.il)  GO  TO  160 

99d0- 

KODE-KODE-IO 

9«70- 

GO  TO  ( 150.540. 120. 140. 130) .KODE 

9900  — C 

9990-C 

SET  UP  FOR  FRACTION 

10000- 

120  IF  (KD.EQ.l)  GO  TO  540 

10010- 

KD=1 

10020- 

GO  TO  110 

10030-C 

10040-C 

SET  UP  NEGATIVE  NUMBER 

10050- 

130  IF  ( KD+KP+KM . NE . 0 ' GO  TO  540 

10060- 

KM-  1 

10070- 

GO  TO  110 

10080-C 

10090-C 

PLUS  IS  NOT  ALLOWED  AFTER  ANYTHING  ELSE 

10100- 

140  IF  ( KP+KD+KM . NE . 0 ) GO  TO  540 

10110- 

KP-1 

10120- 

GO  TO  110 

10130-C 

10140-C 

NO  BLANKS  AFTER  A DECIMAL 

10150- 

150  IF ( KD ' 110.110.540 

10160-C 

10170-C 

SET  UF  FIRST  DIGIT 

10180- 

160  AINT-KODE-1 

10190- 

IF  (KD.EQ.O)  GO  TO  170 

10200- 

aint»aint«fact 

10210- 

FACT-FACT*. 1 

1 0220-C 

10230-C 

GET  NEXT  CHARACTER 

10240- 

170  J-J+l 

10250- 

IF  (J.GT.80)  GO  TO  540 

10260- 

CALL  FIND(CHCJ) .KODE’ . RETURNS ( 530 ' 

10290- 

IF  (KODE. LT.l. OR. KODE. GT.13)  GO  TO 

540 

10280- 

IF  (KODE.LT.il'  GO  TO  1 90 

10290- 

IF  (KODE. EQ. 13)  GO  TO  180 

10300- 

GO  TO  300 

10310-C 

1Q320-C 

FIX  DECIMAL  POINT 
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10919=  IF  .N.EO.O)  RETURN 

10930»C 

10940=0  FIND  REASONABLE  LABEL  RATE  AND  LINE  FEED  RATE  ^ jSTFd  > 

10950=  JSTEF'=  1 

10960=  IF  (N.LT.25)  GO  TO  10 

10970=  JSTEP*N/25 

10980=  10  JLAB=JSTEP*5 

10990=  JF IRST* JSTEP*25 

11000=C 

11010=C  BLANN  OUT  PRINT  BUFFER  XS  ZERO  OUT  DATA  ARRAY  LRO 

11000=  DO  30  M-1.5 

11030=  DO  30  J=  1 » 5 

11040-  30  XS(J.M)=BL 

11110=0 

11100=0  START  at  max  y-grid 
11130=  JROU-N 

11140=  40  DO  50  J=1 > 5 

11150=  DO  50  M-1.5 

11160=0  SET  PRINT  BUFFER  TO  APPROPRIATE  CHARACTER 
11170=  50  IF  (LRQ(J.M)  .GE.JROU)  XS ( J . M ) =AA ( J > 

11180=0 

11190=0  SEE  IF  IT'S  TIME  FOR  A LABEL 

11000=  IF  ( MOD ( JROU • JLAB  > . EQ . 0 ) GO  TO  70 

11010=  PRINT  60. XS 

11000=  60  FORMAT (6X*I • >5(3X5(1XA1) ) ) 

11030=  GO  TO  90 

11040=0 

11050  = 0 PRINT  line  WITH  LABEL 

11060=  70  PRINT  80. JROU. XS 

11070=  80  FORMAT (16. ‘I‘. 5(3X5 (1XA1))> 

11080=0  FOR  THE  FIRST  LABEL.  MANE  SURE  NEXT  ONES  ARE  * EVEN  * 

11090=  90  IF  l JROU. LE. JFIRST)  GO  TO  100 

11300=  JROU= JROW- JSTEP 

11310=  IF  ( JROU. LT. JFIRST)  JROU-JFIRST 

11300=  GO  TO  40 

11330=0 

11340=0  DECREMENT  ONE  LINE 
11350=  100  JROU-JROW- JSTEP 

11360=  IF  (JROU.GT.O)  GO  TO  40 

11370=0 

11380=0  PRINT  HORIZONTAL  LABEL 

11390=  PRINT  110. <LABEL( 1 . J) .LABEL10. J) . J=1 .5) 

11400=  110  FORMAT ( 5X • 0 1 • . 65 ( • ••  ‘ > / 8XA1 0 . A4 . A 1 0 . A4 . A9 . A3 . A1 0 . A4 . A9 . A 1 /// > 

11410=  RETURN 

11420=  END 

11430=  SUBROUTINE  DYPROG < TNTI ME ). RETURNS ( ABORT ) 

11440=  DIMENSION  T<2>.C<2> 

11450=  COMMON /BL0C1/  NBLOO . TRPLAN C 350 >» MAXES ( 350 >. JCOSTS ( 350 ) . 

11460=  * JTIMES ( 350 ) » I NONE (10) 

11470=  COMMON/SHARE/  I CNS  ( 350  ) . QUOT  ( 350  ) , I SW  < 350  ) . DUM  < 1 050  ) 

11480=0 

11490=0 

11500=  10  J =0 


11510= 

00=0.0 

11520= 

OT-O.O 

11530  = 

CSUM=0 . 0 

11540* 

TSUM-O.O 

11550= 

XSUM=0.0 

11560=0 

11570=0 

11580= 

DO  80  1=1. NBLOO 

11590= 

CALL  UNPACN(MAXES< D.INONE' 

11600= 

M* I NONE  < 6 ) 

11610= 

CALL  HALUES<JTIMES<I).T) 

11620* 

CALL  HALOES ( JCOSTS ( I ) »C  > 

1 1 A.30* 

tf  fH.NP.O)  na  TO  Art 
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A 1 640— C 

11630-C  INCREASE  ARRAY  OF  TASKS  TO  BE  OPTIMIZED 
11660-  J-J+l 

11670-  ICNS < J ) • I 

11690-  IF  <C( 1 ) .GT.C(2> > GO  TO  30 

1 1690-C 

1 1 700-C  TTS  CHEAPER.  IF  SHORTER.  FORCE  TTS . ELSE  INITIALIZE  TTS 
1 1710*  IF  <T< 1 > .LE.T <2> ) GO  TO  30 

11720-  ISW(I>=1 

11730-  QUOTC J)-(C( 2)-C( 1 ) > / ( T ( 1 ) -T < 2 ) ) 

11740-  XSUM-XSUN-fT  (2) 

11750-  OT -OT  + T ( 1 ) 

11760-  GO  TO  80 

11770-C 

U7S0-C  FORCE  TTS  ...  ITS  SHORTER  AND  CHEAPER. 

11790=  20  M-l 

11800-  GO  TO  50 

1 1810-C 

11820-C  OJT  CHEAPER.  IF  SHORTER.  FORCE  0 JT . ELSE  INITIALIZE  0 JT . 
11830-  30  IP  (T<2> »LE . TC 1 ) ) GO  TO  40 

11840-  ISW< I ) -2 

11850-  QUOT( J)-(C< 1 >-C(2> >/ < T< 2>-T < 1 > > 

11860-  XSUM-XSUM+T( 1 > 

11870-  OT-OT  + T ( 2 > 

11880-  GO  TO  80 

1 1890-C 

11900-C  FORCE  OJT...  ITS  SHORTER  AND  CHEAPER 

11910-  40  M-2 

11920-  50  J-J-l 

11930-  I NONE ( 6 ) -M 

11940-  CALL  PACK ( INONE . MAXES ( I ) ) 

11950-C 

1 1 960— C ADD  UP  FRESET  TASKS 

11970-  60  IF  (M.GT.2)  M-M-2 

11980-  TSUM— TSUM+T (M  > 

11990-  CSUM-CSUM+CCM) 

12000-  80  CONTINUE 

12010-C 

12020-C  ASSURE  TIME  IS  SUFFICIENT 

12030-  NBK-J 

12040-  TNT-XSUM+TSUM 

12045-  TNTTT-TNT/8.0 

12050-  90  IF  (TNTIME.GE.TNT)  GO  TO  110 

12070-  95  PRINT  100.TNTTT 

12080-  100  FORMAT  < ‘OMINIMUM  TIME  REQUIRED  IS’.F8.2.*  DAYS.  NEW  TIME- 

12090-  CALL  INP  < 1 . TNTTT  . 1 . E30  . TNEW  ) . RETURNS  ( 220  ) 

12100-  TNTIME-TNEW48 . 0 

12110-  GO  TO  10 

12120-C 

12130-C  SORT  ON  QUOT 
12140-  110  IF  (NBK-1)  200.145.115 

12150-  115  NBKM1-NBK-1 

12160-  DO  140  I-1.NBKM1 

12170-C 

12190-C  FIND  SMALLEST 
12190-  X-1.E30 

12200-  DO  120  J-I.NBK 

12210-  IF  ( QUOT ( J ) . GE . X ) GO  TO  120 

12220-  K-J 

12230-  X-QU0T1J) 

12240-  120  CONTINUE 

12250-  IC* ICNS ( K ) 

12260-C 

lCZ^O-C  PLACE  IN  ITH  AND  SLIDE  DOWN  (BACKWARDS) 

12280-  IF  (K.EQ.I)  GO  TO  140 

12290-  KMt-K-I 
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12300*  DO  130  L-l.KMI 

12310-  KS-KF1-L 

12320-  GUOT  t KS  > -GUO  T ^ KS  - 1 ) 

12330-  130  ICNS< KS > - 1CNS< KS-1 > 

12340-C 

1 2330-  GUOT(I)-X 

.2360-  ICNS< t » — I C 

123^0-  MO  CONTINUE 
12380-C 

12390-C  CONFUTE  TIME  TO  MANE  UF 
12400-  145  J-0 

12410-  150  TTN-TSUM+OT-TNT I me 

12420-  IF  (TTM.LE.O.O)  GO  TO  170 

12430-  J-J+l 

12440-  IF  (J.GT.NBN)  STOP 

12450-C 

12460-C  FLIF 

12470-  I-ICNS(J) 

12480-  MOLP»ISUd> 

12490-  M-3-M0LP 

12500-  I SW ( I > — M 

12510-  CALL  HALVES  < JTIHES(I).T) 

12520-  OT-OT-T<MOLB>+T<M> 

12530-  GO  TO  150 

12540-C 

12550-C  BACK  UP.  SWITCHING  WHEN  POSSIBLE 
12560-  170  J-J-l 

12570-  IF  v J . LE • 0 ) GO  TO  180 

12580-  I-ICNS(J) 

12590-  MOLD- ISU( I ) 

12600-  M-3-M0LP 

12610-  CALL  HALVES  < JT IMES  < I > » T ) 

12620-  DIFF-T  < MOLD ) -T  < M > 

12630-  IF  (TTM.GT.DIFF)  GO  TO  170 

12640-  ISU<I'-M 

12650-  OT-OT-DIFF 

12660-  TTM- TTM-DIFF 

12670-  GO  TO  170 

12680-C 

12690-C  PRINT  IT 

12700-  180  DO  190  J-l.NBK 

12710-  I-ICNS(J) 

12720-  M-ISU(I) 

12730-  CALL  HAL VES < JCOSTS < I > . C > 

12740-  190  OC-OCFC(M) 

1 2'50*  200  TOT->  TSUM+0TM8.0 

12760-  COT-CSUM+OC 

12770-  PRINT  210. TOT. COT 

12780-  210  FORMATCOTRAINING  PLAN  UIILL,'3X*0F  LENGTH  *.  5X  * COST  • 

12790-  * /F10. 1 .Fll . 1C0IS  THAT  ACCEPTABLE  ’ *) 

12800-  CALL  INP<2. 0.0. IANS) . RETURNS ( 220 ) 

12810-  IF  (IANS. ECI. 0>  GO  TO  95 

12820-C 

12030-  IF  (NBK.LE.l)  RETURN 

12840-  DO  215  J-l.NBK 

12850-  I - ICNS  < J ) 

12860-  CALL  UNPACK ( MAXES < I >. INONE > 

12070-  I NONE (6>-ISU(I> 

12880-  215  CALL  PACK i INONE • MAXES (I  > ) 

12890-  RETURN 

12900-  220  RETURN  ABORT 

13730-  END 

13M0-  SUBROUTINE  METMEP  i N I TER  . NLOOF  > 

13750-  C0MM0N/BL0C1  NBLOC . TRFLAN ( 350  > .MAXES'  350' . JCOSTS ' 350  > . 

137*0-  l JT I MCS ' 350  > . I NONE ( 10 ’ 

13'70*  COMMON.  Bt  0C7  MTHMAP(6.7) . MEDMAP (6*2) .MAPPSY'5) . MAPCOG ' 5 > 
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13780-C 

13790=  DO  10  1*1. NBLOC 

13800=  CALL  UNPACK (MAXES(I).I NONE ) 

13810=  M* I NONE ( 6 ) 

13820=  IF  (M.EQ.O)  GO  TO  10 

13830=  CALL  DEC  I DE  ( h . NLOOP . MM  ) 

13835-C  CHECK  FOP  PPE-ASSIGNED  METHODS  AND  MEDIA 
13840=  IF  (IN0NE<7)  .GT.O. AND. NITER. EC1.0)  GO  TO  10 

13850=  NT  1 = 1 NONE ( 4 ) 

13860=  NT2“ INONE  t 5 ) 

1 3865=C  HIGHER  OF  COG. PSYCH  LEVELS  DIRECTS  MAPPING  INTO  TRAINING  OBJECTIVE 
13870=  NTO=MAPCOG<NT2) 

13880=  IF  (NT1.GT.NT2)  NTO-MAPPSY ( NT  1 ) 

13885-C  MAPPING  FROM  TRAINING  OBJECTIVE  TO  METHOD  AND  MEDIUM 
13890=  I NONE  ( 7 ) =MTHhAP ( NTO . M ) 

13900=  I NONE ( 8 ) “HEDNAP ( NTO » M ) 

13910=  CALL  PACK ( 1 NONE . MAXES  < I > ) 

13920=  10  CONTINUE 

13930=  RETURN 

13940=  END 

13950=  SUBROUTINE  DECIDE ( M . NLOOP . M2 ) 

13960=C  THIS  ROUTINE  CONVERTS  M AND  M2  TO  EITHER  1 OR  2. 

13970=C  M IS  THE  TTS/OJT  INDEX  TO  COSTS.  TIMES.  ETC. 

13980-C  M2  IS  THE  ARTIFICIAL  MODE  WHICH  REPRESENTS  HOW  THE 
13990-C  TASK  IS  ACTUALLY  TAUGHT.  EVEN  IF  ALL  STUDENTS  ARE 
14000-C  GOING  TTS . M2  COULD  BE  -2*  IF  M CAME  IN  *4*.  WHICH 
14010-C  MEANS  THIS  TASK  IS  TAUGHT  TO  ALL  STUDENTS.  WHETHER 
1 4020=C  GOING  TTS  OR  0 JT . BUT  THE  TASK  IS  TAUGHT  OJT . 

14030-C  NLOOP  IS  1 OR  2 IF  ALL  STUDENTS  ARE  GOING  TO  TTS  (1)  OR 
14040-C  OJT  (2).  IF  NLOOP  IS  ZERO.  THERE  IS  A MIX  AND  M WILL  BE 
1 4050=C  SET  TO  M-2  IF  THE  ABOVE  OPTION  IS  USED. 

14060-C  M=5  WAS  SET  WITH  NLLOP-1  TO  FLAG  AS  A TTS  FORCE.  WE  SET  IT 
14070-C  TO  1 HERE.  IT  WILL  NOT  BE  SET  TO  2 LATER  (WHEN  NLOOP-2) 

14080-C  AS  WILL  MOST  OTHERS  (ALL  WHICH  ARE  NOW  M=l>. 

14090=  IF  (M.NE.5)  GO  TO  10 

14100=  M=  1 

14110=  GO  TO  20 

14120=  10  IF  (M.GT.2)  GO  TO  30 

14130=  20  M2-M 

14140=  RETURN 

14150=  30  M-M-2 

14160=  M2=M 

14170=  IF  (NLOOP. GT.O)  M-NLOOP 

14180=  RETURN 

14190=  END 

14200=  SUBROUTINE  SCHEDU ( NLOOP . NUMB . MEDTOT . KODE ) 

14210=  DIMENSION  TVAL ( 2 ) 

14220=  COMMON /BLOC 1/NBLOC. TRPLAN( 350) .MAXES (350' . JC0STS(350' . 

14230=  % JTI MES ( 350 ) . INONE (10’ 

14240=  COMMON/BLOC3/NTR . NST (2) . NHIER . NMEDI A . NSCH . M I N . MAX . NCL . NS  1 2E ( 30 ) 

14241 =C  NTR=TDTAL  NUMBER  OF  TRAINEES.  NST ( I ) -NUMBER  OF  TRAINEES  ASSIGNED 
14242-C  TO  MODE  I.  NHIER  IS  THE  IDENTIFYING  NUMBER  OF  THE  CHARACTERISTIC 
14243-C  GOVERNING  TRAINING  SEOUENCE  OF  TASK  BLOCKS.  NMEDIA  IDENTIFIES  THE 
1 4244-C  HIGH  COST  MEDIUM  TO  BE  OPTIMALLY  SCHEDULED.  NSCH  IS  THE  NUMBER  OF 
14245-C  SCHEDULE  ARRANGEMENTS.  MIN  AND  MAX  ARE  THE  CLASS  SIZE  LIMITS.  NCL- 
14246-C  TOTAL  NUMBER  OF  CLASSES  NEEDED  AND  NSIZE(I)  IS  THE  SIZE  OF  CLASS  I. 
14250*  COMMON/SHARE/  NSCHED ( 350. 4 ) . JS IM < 350 > . KSIM ( 350 ' 

14261-C  NSCHED  IS  A TASK  BLOCK  POINTER  FOR  EACH  OF  UF  TO  4 SCHEDULES. 

14262=C  KSIM  IS  A TASK  BLOCK  POINTER  WHICH  IS  SORTED  TO  CONTAIN  FIRST 
14263-C  THE  HIGH  COST  MEDIUM  TASKS.  THEN  OTHER  TTS  TASKS.  AND  FINALLY  THE 
1 4264-C  OJT  TASKS.  JSIM  CONTAINS  THE  GOVERNING  CHARACTERISTIC  VALUE  IN 
14265-C  A PARALLEL  ARRAY.  BELOW.  NSIM.  NCHR . AND  NOJT  ARE  THE  SIZES  OF 
14266-C  THE  RESPECTIVE  PORTIONS  OF  EACH  ARRAY. 

14270-C 

14280-C  CREATE  ARRAYS  FOR  ORDERING  BLOCKS  FOR  TRAINING 
14790=  NSTM=0 
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1 4300= 

1 4310* 
14320= 
14330= 

1 4340* 
14341* 

1 4342= 

1 4343= 

j 4344  = C 

14345-C 

1 4 3 4 o = 

1434?* 

14348* 

14349* 

14350= 

14351* 

14352- 

1 4353-C 

1 4360= 

14370* 


NCHR=0 
NOJT  =0 
MEDTOT-O 
NODE  * 1 
STIM£=0.0 
OTIME-O.O 
I AS  1 *0 
I AS2=0 


FIRST  FIND  BIASES 

DO  10  1*1 .NBLOC 

CALL  UNPACK ( MAXES  < I ) . INONE  > 

M= I NONE ( 6 ) 

IF  (M.EQ.0.0R.M.EQ.2.0R.N.EQ.4)  GO  TO  10 
IAS2-IAS2+1 

IF  CIN0NE<7) ►EQ.NhEDIA)  IAS1-IAS1+1 
10  CONTINUE 

DO  40  1*1 r NBLOC 

CALL  UNPACK (MAXESC I ). INONE) 


14380- 

14390- 

14400* 

14410= 

1 4420- 
1 '405-C 
1 4430- 
1 4440- 
1 4450* 
14460* 

1 4470= 

14480- 

1 4490- 

14500- 

14510- 

14520* 

14525-C 

14530- 

14540- 

14550- 

14560* 

14570- 

14580= 

1 4589-C 
14590- 
14600* 
14610- 
1 4620— C 
1 4630- 
1 4o40= 
14645-C 
14650= 

1 4660- 
14670- 
14680* 
14690= 
14700= 
14710- 
14720= 
14730- 
1 4740= 
14750- 
t 4760= 
14770- 
14780- 
14790- 


N- 1 NONE ( 6 ) 

IF  (h.EO.Ol  GO  TO  40 
CALL  DEC  I DE  < h r NLOOP  f M2  •’ 

CALL  HALOES (JTIMES<I)»TUAL) 

IF  th.EO.2)  GO  TO  30 
STINE  HOLDS  SCHOOL  TRAINING  TIME 
STIME-STIME+TVALC 1 ) 

IF  i I NONE  ( 8 ) . EQ  . NMED I A ) GO  TO  20 
NCHR-NCHR+1 

JSIMINCHR+IAS1 )- INONE (NHIER) 

KSIM ( NCHR+ IASI >«I 
GO  TO  40 
20  NSIM-NSIM+1 

JSIMl NSIh)- INONE (NHIER) 

KS IM ( NSI M ) - I 
GO  TO  40 

OTIME  HOLDS  OJT  TRAINING  TIME 
30  0TIME-0TIME+TUAL<2> 

NOJT -NOJT  + 1 

JSIM < NO JT+ I AS2>- INONE (NHIER) 

KSIM<N0JT+IAS2)=I 
40  CONTINUE 

IF  (NHIER. EO.O)  GO  TO  50 

SORT  TASK  BLOCKS  ACCORDING  TO  SELECTED  CHARACTERISTIC 
CALL  DBLSORl JSIMfKSIM.NSIM) 

CALL  DBLSOR  ( JSIM  ( I AS1  + 1 ) » KSIM  ( I AS1  + 1 ) • NCHR  ) 

CALL  DBLSOR ( JSIM ( IAS2+1 ) r KSIM ( I AS2+ 1 ) .NOJT) 

50  NUMB— NSI M+NCHR+NOJT 

IF  (NOJT .EO. NUMB)  GO  TO  200 

DETERMINE  NUMBER  AND  SIZE  OF  CLASSES  - NCL  AND  NSIZE(I> 
KODE-2 
NHOLD»NST( 1 ) 

NCL-NHOLD/MAX 
NREM-NHOLD- ( NCL*MAX ) 

DO  60  1=1. NCL 

60  NS  I ZE ( I ) -MAX 

IF  (NREM.GE.MIN)  GO  TO  80 
IF  (NREM.EQ.O)  GO  TO  90 
K-0 

DO  70  1*1. NREM 

K-K  + l 

NSIZE(K>*NSIZE(K>+1 
70  IF  (K.EG.NCL)  K-0 
GO  TO  90 
80  Nri  -NFL  + L 
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14800- 

14810- 

148C0-C 

14830-C 

14831-C 

14832-C 

14833-C 

14834-C 

14833-C 

14836-C 

14840- 

14850- 

14860- 

14870- 

14880- 

14890- 

14900- 

14910- 

14920- 

14930- 

1 4940— C 

14930- 

14960- 

14970- 

14980- 

14990- 

13000- 

13010- 

13020- 

13030- 

15040- 

15030- 

13060- 

13070- 

15080- 

13090- 

15100- 

13110- 

13120- 

13130- 

15140- 

15130- 

13160- 

13170- 

15180- 

13190- 

15200- 

15210-C 

15220-C 

1 3221 -C 

13222-C 

15230- 

13240- 

15250-C 

13260- 

15270- 

15280- 

13290- 

13300- 

15310- 

15320- 

15330- 

13340- 

13350-C 

15360-C 

15361-C 


NSIZE(NCL)-NREM 
90  IF  (NSIh.EQ.O)  GO  TO  180 

SCHEDULE  TTS  BLOCKS.  WITH  OPT.  MEDIUM  OPTION 

FORM  ORIGINAL  SCHEDULE  BY  ORDERING  IASI  TASK  BLOCKS  FIRST  AND 
THEN  IAS2  BLOCKS  TO  FOLLOW.  KEEP  FIRST  IASI  TASKS  (HIGH  COST 
MEDIUM)  TOGETHER  AS  *.  2'_0CK.  AND  DETERMINE  POSSIBLE  ARRANGEMENTS 
OF  ORIGINAL  SCHED't  BY  SHIFTING  THIS  BLOCK  POSITION  IN  SEQUENCE. 
CAN'T  BEGIN  TRAINING  THIS  BLOCK  IN  ARRANGEMENT  NSCH  (AT  TIME  RHO ) 
UNTIL  ITS  TRAINING  IN  ARRANGEMENT  NSCH-1  IS  OVER  (AT  TIME  ETA). 
KODE-3 
TAU-O. 

DO  100  K-l.NSlM 
I-KSIM(K) 

CALL  UNPACK ( MAXES ( I > . I NONE  > 

M- 1 NONE ( 6 > 

CALL  DECIDE ( M.NLOOP . M2 > 

CALL  HALVES ( JTIMES ( I > » TVAL ) 

100  T AU-T AU+TVAL ( M ) 

ETA-TAU 

K-0 

NSCH-1 

NITEM-1 

110  DO  120  J— 1 t NSIM 
K-K  + l 

120  NSCHED ( K » NSCH ) -KSIM ( J > 

DO  130  J-NITEHrNCHR 
K-K+l 

130  NSCHED ( K . NSCH ) -KSIM ( I AS1+ J) 

K-0 

NSCH— NSCH+1 
RHO— 0 . 0 
140  K-K+l 

IF  ( K . GT  . NCHR . OR . NSCH . GT  . 4 . OR  . NSCH . GT  . NCL ) GO  TO  130 
I— KSIM(K+IAS1 ) 

NSCHED (K. NSCH ) — I 

CALL  UNPACK ( MAXES ( I ) . I NONE  > 

M- I NONE ( 6 ) 

CALL  DECIDE ( M* NLOOP . M2 ) 

CALL  HALVES ( JTIMES ( I ) . TVAL ) 

RHO-RHO+  TVAL ( M ) 

IF  (RHO. LT. ETA)  GO  TO  140 

NITEM-K+1 

ETA-TAU+RHO 

IF  (ETA.LT .STIME)  GO  TO  110 
150  NSCH— NSCH— 1 

NOW  HAVE  TOTAL  POSSIBLE  SCHEDULE  ARRANGEMENTS  (MAX-4) 

WHICH  - NSCH.  I.E..  ONE  UNIT  OF  SELECTED  MEDIUM  CAN  BE  USED  FOR 
NSCH  CLASSES.  NOW  DETERMINE  HOU  MANY  UNITS  NEEDED  FOR  NCL  CLASSES. 
MEDTOT-NCL/NSCH 

IF  ( NCL . GT . MEDT0T4NSCH ) MEDTOT -MEDTOT  + 1 
ADD  OJT  BLOCKS  TO  CLASS  SCHEDULES 
NTS-NSIM+NCHR 
IF  (NTS. EQ. NUMB)  RETURN 
NTS1-NTS+1 
DO  170  J-l.NSCH 
DO  160  K-NTS1 .NUMB 
L-K-NTS 

160  NSCHED ( K .J)-KSIM(L) 

170  CONTINUE 
RETURN 

NO  HIGH  COST  MEDIUM  OPTIMIZATION  IN  SCHEDULES 

ONLY  NEED  ONE  SCHEDULE  ARRANGEMENT  AND  ALL  NCL  CLASSES 
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13362-C  FOLLOW  IT.  SCHEDULE  TTS  BLOKS. 

15370"  100  NSCH-1 

13380-  DO  190  I-l.NCHR 

13390-  190  NSCHEIK I . 1 >-KSIM< I+IAS1 > 

15400-  IF  (NCHR.EQ.NUMB>  RCTURN 

13410-  N I TEM-NCHR4 1 

15420-  00  TO  210 

15430-C 

15440-C  SCHEDULE  OJT  BLOCKS 
15430-  200  NSCH-1 

15460-  NITEM-1 

15470-  210  K— 0 

15480-  DO  220  I-NITEM.NUMB 

15490-  K-K+l 

15500-  NSCHED( I r 1 > -KS IM  < K+ I AS2 ) 

15310-  220  CONTINUE 

13320-  RETURN 

13330-  END 

13540-  SUBROUTINE  DBLSOR ( J » K . N > 

15550-  DIMENSION  J<N)rK(N> 

15551-C  SORTS  N VALUES  IN  ARRAY  J IN  ASCENDING  ORDER. 

13532-C  ARRAY  K IS  A POINTER  FOR  BLOCKS  WHOSE  VALUES  ARE  IN  ARRAY  J 
15533-C  AND  KEEPS  TRACK  OF  RE-ORDERNG. 

13560-  IF  (N.LE.l)  RETURN 

13570-  Nl-N-1 

13580-  DO  30  I1-1.N1 

13390-  I1P-I1+1 

15600-  DO  20  I2-I1P.N 

15610-  IF  (J<I1).LE.J<I2> > GO  TO  20 

15620-  JTEMP-JCI2) 

15630-  J( I2)-J( I 1 > 

13640-  J(  ID-TEMP 

15650-  KTEMP— K ( 12 ) 

13660-  K<12>— K(I1) 

15670-  K< II )— KTEMP 

13680-  20  CONTINUE 

15690-  30  CONTINUE 

13700-  RETURN 

13710-  END 

15720-  SUBROUTINE  REPT ( GRID . NLOOP > 

13730-  DIMENSION  TVAL<2> 

15740-  COMMON /BLOC 1/  NBLOC . TRPLAN < 350 >. MAXES ( 350 >. JCOSTS ( 350 > » 

15750-  t JTIMES ( 330  > > I NONE  < 10 ) 

15760-  COMMON/NAMES/DUT ( 4 » 6 > » TSK  < 4 . 62  ) > KDUT ( 6 ) r KTSK ( 62 ) f NDUT  » NTSK 

15770-  COMMON/MINT /CODE ( 2 ) 

15780-  DIMENSION  AMETH ( 6 ) . AMED ( 6 ) 

15790-  DATA  AMETH/ " LECTR ‘ > *DSCUS*  * "DEMO" » ‘SIMUL*  » ‘PERFM* » * V 

13800-  DAT  A AMED/ ’ TRANS  * » "FILMS  • » * MOCK  1 . 'SIMUL 1 t * EQUIP  * r * V 

15010-C 

13B20-C  BEGIN  TRAINING  PLAN  OUTPUT 
15830-  10  PRINT  20. GRID 

13840-  20  FORMAT  <///16XA5. ' TRAINING  PLAN  GENERATOR  OUTPUT  * ) 

15830-  OLDSYS-O . 

15860-C 

15870-C  LOOP  THROUGH  TASKS 
15880-  DO  90  1-1. NBLOC 

15890-  CALL  UNPACK ( MAXES < I >. INONE ) 

15900-  1 1 « I NONE ( 6 > 

15910-  IF  (Il.EQ.O)  GO  TO  90 

13920-  CALL  DECI DE ( I 1 . NLOOP . I 1M > 

15930-  SYS-TRPLAN(I) 

13940-  IF  (SYS. EO. OLDS YS)  GO  TO  50 

15950-  IF  (OLDSYS.NE.O. > PRINT  30 

15960-  30  FORMAT  < 1X72 ( * “*)/// ) 

15970-  PRINT  40. SYS 

13980-  40  FORMAT ( 1X72( *-•>/•  I SUBS YSTEM- *. A6 . 31 X ■ MODE  DAYS  METH  MEP  ID 
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13990- 

NOLDT-O 

16000- 

OLDSYS-SYS 

16010-C 

16020- 

30 

NEUDT -I NONE  ( 9 ) 

16030- 

IF  (NEUDT. EQ.NOLDT)  GO  TO  70 

16040— 

PRINT  60»  KDUT ( NEW DT ) , ( DUT ( J , NEUDT ) . J- 1 r 4 > 

16030- 

60 

FORMAT <*  I* »70( ■-•>» ’I*/*  I * > 1 XA2 » 1X4A1 0 • 26X * I • ) 

16060- 

NOLDT -NEUDT 

16070-C 

16080-C 

16090- 

70 

NEUTSK- INONE  < 10  > 

16100- 

12- I NONE ( 7 ) 

16110- 

I3-IN0NE ( 8 ) 

16120- 

CALL  HALVES ( JTIMES  ( I > * TVAL ) 

lol30- 

PRINT  80 . KTSK < NEUTSK ) * < TSK ( J . NEUTSK ) , J-l » 4 ) » CODE  < 1 1 M > . 

16140- 

* TVAL (11) /8 • t AMETH ( 12  > r AMED  < 13 ) 

16130- 

80 

FORMAT  ( * I">4XA2**0*»1X4A10» IX A3 1 1XF5  <1> 1XA5  r IX AS  * *1* ) 

16160- 

90 

CONTINUE 

16170- 

PRINT  30 

16180- 

RETURN 

16190- 

F.ND 

16191— »E0R 

16192-4E0F 

16193-9E0F 

I 
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Table  B-l 

TRAMOD  - Subroutine  List 


TRAMOD 


SCALE 


HIST 


SCREEN 


TRMODE 


METMED 


REPT 


SCHEDULE 


DBLSORT 


FIND 


reads  input  tasks  data  set;  directs  execution  of 
the  model 

maps  variable  scaled  input  data  into  1-5  scale 
needed  for  model;  optional 

generates  histogram  of  tasks  over  five  task 
characteristics 

selects  task  blocks  to  be  trained  according  to 
user  criteria 

assigns  training  mode  for  task  blocks  and  student 
population 

assigns  methods  and  media  for  training  task 
blocks 

generates  training  plan  output 

generates  training  schedule  arrangements; 
determines  number  of  classes  and  scarce  media 
items  for  TTS 

sorts  primary  array  in  ascending  order  and 
rearranges  elements  of  corresponding  array  in 
parallel 

read  interactive  input  data  and  check  against 
acceptable  range 


Table  B-2 

TRAMOD  - VARIABLE  LIST 


COGMAP 

COSTS 

GRID 

MAX 

MAXES 


MEDMAP 

MEDTOT 

MIN 

MTHMAP 


NBLOC 

NCL 

NHIER 

NMEDLA 

NSCH 

NSCHED 

NSIZE 

NST 

NTIME 

NTR 


array  containing  mapping  from  cognitive  levels  to 
training  objectives 

array  containing  TTS,  OJT  costs  for  task  blocks 
trainee  group  identification 
maximum  TTS  class  size 

array  containing  characteristics  for  selected  task 
blocks 

array  containing  mapping  from  training  objectives 
to  media 

total  number  of  scarce  resource  media  needed  for 
training  program 

minimum  TTS  class  size 

array  containing  mapping  from  training  objectives 
to  methods 

number  of  task  blocks  to  be  trained 

number  of  TTS  classes  needed  for  training  program 

characteristic  which  governs  task  block  training 
sequence 

scarce  resource  medium  to  be  optimized 

number  of  schedule  arrangements  for  training 
program 

array  containing  schedule  arrangements  for 
training  program 

size  of  TTS  classes 

array  containing  students  for  TTS  and  OJT 
length  of  training  program 
total  number  of  trainees 


Table  B-2  (continued) 


PSYMAP 

SYS 

TASKS 

TIMES 

TRPLAN 


array  containing  mapping  from  psychomotor  levels 
to  training  objectives 

equipment  identification  associated  with  tasks 
array  containing  tasks  from  input  data  set 
array  containing  TTS,  OJT  times  for  task  blocks 
array  containing  task  blocks  to  be  trained 
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Table  B-3 


TRAMOD  - COMMON  STORAGE 


BLOC  1 


BLOC  2 


BLOC  3 


BLOC  4 


BLOC  5 


SUB  1 


NBLOC 

integer 

TRPLAN  (100.  7) 

real 

MAXES  (100.7) 

real 

MTHMAP  (6, 

2) 

integer 

MED  MAP  (6 

2) 

integer 

PS YMA P (5) 

integer 

COGMAP  (5) 

integer 

NTR 

integer 

NST  (2) 

integer 

NHIER 

integer 

NMEDIA 

integer 

NSCH 

integer 

NSCHED  (100,  10) 

integer 

MIN 

integer 

MAX 

integer 

NCL 

integer 

NSI2E  (30) 

integer 

COSTS  (100,  2) 

real 

TIMES  (100,  2) 

- real 

OU  S GOVUHMEAT  PKIMTINC  OFFICt  11TH-  i 1 -II  I 
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